for i := 1 to 10 do
begin
 ... // Befehlsfolge, die mehrfach ausgeführt werden soll
end;