1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Speichern1Click(Sender: TObject);
var TextDatei:TextFile;  i:integer;
begin
  AssignFile(TextDatei,'C:\windows\desktop\Paul.txt');
  Rewrite(TextDatei); //Datei erstellen

  for i:=1 to Laufzeit do //Variable Laufzeit ist global,
    with StringGrid1 do  // da sie hier zum Speichern benötigt wird
      begin              // (in Abhängigkeit der Laufzeit)
        WriteLn(TextDatei,Cells[0,i]);
        WriteLn(TextDatei,Cells[1,i]);
        WriteLn(TextDatei,Cells[2,i]);
        WriteLn(TextDatei,Cells[3,i]+#13+#10);         //Wagenrücklauf+Zeilensprung in der Textdatei
      end;                     
  CloseFile(TextDatei);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:

 with StringGrid1 do  
  for i:=1 to Laufzeit do 
     begin
       for x:=0 to colcount-1 do
         begin             
          Write(TextDatei,Cells[x,i]+';');
         end;
        writeln(Textdatei); //Zeile abschließen  
      end;