Das füllt Deine Zellen automatisch also musst Du das löschen
Delphi-Quellcode:
for cnt1 := 0 to Stringgrid1.RowCount - 1 do
Stringgrid1.Cells[0,cnt1]:=inttostr(cnt1);
und das vermutlich auch weil Dir das anzeigt was aus dem Stringgrid gelesen wurde bzw. in der Variablen:ZeitS steht.
edzeit.text:=zeitS;
in Deinem Fall bleibt aber ZeitS leer weil Du
das nicht übernommen hast.
zeitS:=stringgrid1.Cells[0,Index];