Hvem sier at du behøver å lese postene de anonyme legger ut? (Synd jeg ikke kunne legge ut dette anonymt her, kun på pur f**n). :-D

Read(Post)
If (Sender<>Anonymous) then
Begin
Read(Post)
If HaveComment then NewReply(Comment)
end
Repeat Until EndPost