МАССОВЫЙ ВБРОС⁠⁠

Рекурсия.

Procedure Recurtion (date: Integer)
begin
if date=4 then
begin
Post ('Пост о вбросах');
Recurtion (date);
end;
end;

Если вы понимаете о чем я.