Aus stringgrid die daten nutzen

[busybyte]

Delphi-Quellcode:

var index:integer;

procedure TForm1.Button3Click(Sender: TObject);
var i,b,p_:integer; g:string; //var index:integer; //hier wird index wieder 0 bzw. nicht 0 sondern undefiniert
zeitS:String;
zeitI:integer;
begin

//ich hab hier mal die Nummer 0 genommen 
zeitS:=stringgrid1.Cells[0,Index];               

//wenn du wirklich  5s schreibst dann das s entfernen 
p_:=pos('s',ansilowercase(zeits));
delete(zeitS,p_,1);

zeitI:=Strtointdef(zeitS,-1);  //-1 wenn Fehler

edzeit.text:=zeitS;


Timer6.Interval := 1000 * zeitI; //strtoint(edzeit.text);
Timer6.Enabled:=True;

g:= stringgrid1.Cells[1,Index];

if g ='Geradeaus'
then
begin
cbStrobe.checked:=false;
cbData1.checked:=false;
cbData3.checked:=true;
cbData5.checked:=true;
cbData7.checked:=true;
end;
Inc(Index);
//If Index > stringgrid1.Row                   //<--- 
If Index > stringgrid1.Rowcount -1                
then Index := 0;

Wobei die Standardtimer sehr ungenau, bei hoher Systemauslatung werden, aber das ist ein anderes Problem.