Speichern==> Speichert nicht!

[Die Muhkuh]

OK es Geht!!!

Nämlich so:

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
  var datei: textfile;
begin
if Savedialog1.Execute then begin
assignfile(datei, savedialog1.filename);
rewrite(datei);
writeln(datei, panel1.caption);
writeln(datei, panel2.caption); 
writeln(datei, panel3.caption);
writeln(datei, panel4.caption); 
writeln(datei, panel5.caption);
closefile(datei); 
end;
end;


procedure TForm1.Laden1Click(Sender: TObject);
var datei: textfile;
    p_caption: array[1..5] of string; 
    i: integer;
begin 
if opendialog1.execute then
begin 
assignfile(datei, opendialog1.filename);
reset(datei); 
i:= 0; 
while not eof(datei) do 
  begin 
  inc(i);
  readln(datei, p_caption[i]);
  end;
panel1.caption:= p_caption[1];
panel2.caption:= p_caption[2];
Panel3.caption:= p_caption[3];
Panel4.caption:= p_caption[4];
Panel5.caption:= p_caption[5];

end;
end