Speichern==> Speichert nicht!

[iaby]

Code:

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;
...
end;
end;