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

SpeicherMenge:=((ComboBox1.Items.Count-1)+1)*8;
//Array-Speicherteil 1 = Tageskilometer
//Array-Speicherteil 2 = Zeit in Stunden
//Array-Speicherteil 3 = Zeit in Sekunden
//Array-Speicherteil 4 = Zeit in Sekunden
//Array-Speicherteil 5 = Hoechstgeschwindigkeit
//Array-Speicherteil 6 = Durchschnittsgeschwindigkeit
//Array-Speicherteil 7 = Datum
//Array-Speicherteil 8 = Routenbeschreibung

SetLength(Speicher,SpeicherMenge);
Speicher[(0+((ComboBox1.Items.Count-1)*8))]:=edit1.text;
Speicher[(1+((ComboBox1.Items.Count-1)*8))]:=edit2.text;
Speicher[(2+((ComboBox1.Items.Count-1)*8))]:=edit3.text;
Speicher[(3+((ComboBox1.Items.Count-1)*8))]:=edit4.text;
Speicher[(4+((ComboBox1.Items.Count-1)*8))]:=edit5.text;
Speicher[(5+((ComboBox1.Items.Count-1)*8))]:=edit6.text;
Speicher[(6+((ComboBox1.Items.Count-1)*8))]:=Form2.edit2.text;
Speicher[(7+((ComboBox1.Items.Count-1)*8))]:=Form2.edit1.text;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TMyData = record
    A: String;
    B: Integer;
  end;

var
  MyData: Array[1..10] of MyData;

{ ... }

MyData[1].A := 'Hallo';
MyData[1].B := 10;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TForm1 = class(TForm)
    {...}
  TSpeicherDatensatz = record
    Tageskilometer:String[20];
    ZeitInStunden:String[5];
    ZeitInMinuten:String[2];
    ZeitInSekunden:String[2];
    Hoechstgeschwindigkeit:String[5];
    Durchschnittsgeschwindigkeit:String[8];
    Datum:String[10];
    Route:String[255];
   {...}
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

Speicher:TSpeicherDatensatz; //Globale Variablen
{...}
procedure TForm1.Button_tour_addClick(Sender: TObject);
var Speicher:Array[1..200] of TSpeicherDatensatz;
i:integer;
begin

Form2.Show;

i:=(ComboBox1.Items.Count-1);
Speicher[i].Tageskilometer:=edit1.text;
Speicher[i].ZeitInStunden:=edit2.text;
Speicher[i].ZeitInMinuten:=edit3.text;
Speicher[i].ZeitInSekunden:=edit4.text;
Speicher[i].Hoechstgeschwindigkeit:=edit5.text;
Speicher[i].Durchschnittsgeschwindigkeit:=edit6.text;
Speicher[i].Datum:=Form2.edit2.text;
Speicher[i].Route:=Form2.edit1.text;

end;

{...}

procedure TForm1.Button_speichernClick(Sender: TObject);
var Touren:File of TSpeicherDatensatz;
begin

try
        AssignFile(Touren, 'Touren.radeln');
        ReWrite(Touren);
        Write(Touren,Speicher);
finally
        closeFile(Touren);
    end;
showmessage('Datei wurde gespeichert!');
end;