Hi!
Du machst einen grundlegenden Fehler...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
i:=1; // <-- ...und zwar hier
In jedem Timerintervall wird i auf 1 gesetzt und die späteren incs können daran nichts ändern.
Gruß
Calculon
--