Загрузка из файла

[Raivolo]

Подскажите как добиться следующего:
В программе используются компоненты Label, значение Caption у них меняются. Необходимо чтобы значение Caplion записовалось в фаил и потом можно было их от туда загрузить.

P.S.
Если есть возможность напишите код или исходник кинте. Зарание всем спасибо/

[r9m]

// СОХРАНЯЕМ
procedure TForm1.Button1Click(Sender: TObject);
var
str:tstringlist;
begin
str := tstringlist.Create;
str.Add(label1.caption);
str.Add(label2.caption);
str.Add(label3.caption);
str.SaveToFile('str');
str.Free;

end;

// ЗАГРУЖАЕМ
procedure TForm1.Button2Click(Sender: TObject);
var
str:tstringlist;
begin
str:=tstringlist.create;
try
str.LoadFromFile('str');
label1.Caption:=str.Strings[0];
label2.Caption:=str.Strings[1];
label3.Caption:=str.Strings[2];
finally
str.Free;
end;
end;

[Манжосов Денис :)]

// Сохранение
var 
  s1,s2: string;
begin
  s1 := Label1.Caption;
  s2 := Label2.Caption;
  AssignFile(Output, 'Options.dat');
  Rewrite(Output);
   WriteLn(s1, ' ');
   write(s2);
  CloseFile(Output);
end;

// Загрузка
var 
  s1,s2: string;
begin
  s1 := Label1.Caption;
  s2 := Label2.Caption;
  AssignFile(Input, 'Options.dat');
  Rewrite(Input);
   ReadLn(s1);
   Read(s2);
  CloseFile(Input);
end;

Не знаю будет ли работать, на скорую руку написал.

[Raivolo]

Сообщение от r9m

// СОХРАНЯЕМ
procedure TForm1.Button1Click(Sender: TObject);
var
str:tstringlist;
begin
str := tstringlist.Create;
str.Add(label1.caption);
str.Add(label2.caption);
str.Add(label3.caption);
str.SaveToFile('str');
str.Free;

end;

// ЗАГРУЖАЕМ
procedure TForm1.Button2Click(Sender: TObject);
var
str:tstringlist;
begin
str:=tstringlist.create;
try
str.LoadFromFile('str');
label1.Caption:=str.Strings[0];
label2.Caption:=str.Strings[1];
label3.Caption:=str.Strings[2];
finally
str.Free;
end;
end;

Работает. Огромное спасибо