[wildamd]

var i:byte;
begin
 for i:=1 to 10 do begin
  'а все что тут выполнится 10 раз, это на делфи
 end;
end.

думаю как-то так