[cmm07]

si quieres hacer un for seria algo asi

var
I: Integer
begin
for I:= 0 to (condicion1) do begin
(Condiciones)
end;
54LU2