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

procedure TF_Haupt.SpeichernClick(Sender: TObject);
var sl: TStringlist;
begin
  ForceCurrentDirectory := TRUE;
  Savedialog1.Filter := 'Zurren-Dateien *.dat|*.dat';
  if not Savedialog1.Execute then Exit;
 sl := TStringlist.Create;
 try
  if RB_Nieder.Checked then sl.Add('1') else sl.Add('0');
   if sl[1] = '1' then RB_Nieder.Checked := TRUE
    else RB_Nieder.Checked := FALSE;

  if RB_Horizontal.Checked then sl.Add('3') else sl.Add('2');
   if sl[2] = '3' then RB_Horizontal.Checked := TRUE
    else RB_Horizontal.Checked := FALSE;

  if RB_Schraeg.Checked then sl.Add('5') else sl.Add('4');
   if sl[4] = '5' then RB_Schraeg.Checked := TRUE
    else RB_Schraeg.Checked := FALSE;

  if RB_Diagonal.Checked then sl.Add('7') else sl.Add('6');
   if sl[6] = '7' then RB_Diagonal.Checked := TRUE
    else RB_Diagonal.Checked := FALSE;