Hallo,
vielleicht solltest Du uns auch mitteilen was nicht geht. Funktioniert die Prozedur nicht, oder lässt sich das ganze erst gar nciht kompilieren?
Hast Du auch an die Variablendeklaration gedacht?
Delphi-Quellcode:
procedure dfdfsdfsd(Sender: TObject);
var
i: Integer;
begin
//Hier die Schleife
end;
Grüsse, Daniel