Schleife mit Timer

[delphi-projekt]

Hi, ich möchte in eine Tabelle Werte eingeben, und in der ersten Spalte sollen Zahlen stehen was ich nun mit diesem Quelltext mache:

Delphi-Quellcode:

implementation
   var anztimer:integer;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.Cells[0,stringgrid1.Row]:=(Edit1.text);
stringgrid1.Cells[1,stringgrid1.Row]:=(ComboBox1.Text);
stringgrid1.Row:=stringgrid1.Row+1;
anztimer:=stringgrid1.row;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.cells[0,0]:='Zeit';
stringgrid1.cells[1,0]:='Richtung';
end;

So, nun möchte ich per Button2, das mein Timer1 die Werte aus der ersten Spalte nach und nach abläuft.

Das heißt, steht in der ersten Spalte 5 in der ersten Zeile, soll der Timmer 5Sekunden bei der ersten Zeile bleiben, und danach erst in die nächste Zeile wechseln. Dies will ich erreichen mit:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
interval:cardinal;
begin
for i:=1 to anztimer-1  do
begin
Timer1.Enabled := true;
Timer1.Interval:=(stringgrid1.cells[0,i]);
label1.caption:=(stringgrid1.cells[0,i]);
end;
end;


end.

Irgend etwas klappt noch nicht so recht, kann mir jemand mal einen Tipp geben?