[lmikle]

пример использования (об использованных классах читай в справке):

Код:

procedure TForm1.btSaveClick(Sender : TObject);
begin
  If SaveDialog1.Execute Then
    With TStringList.Create Do
      Begin
        Add(Edit1.Text);
        Add(Edit2.Text);
        SaveToFile(SaveDialog1.FileName);
        Free;
      End;
end;

procedure TForm1.btOpenClick(Sender : TObject);
begin
  If OpenDialog1.Execute Then
    With TStringList.Create Do
      Begin
        LoadFromFile(OpenDialog1.FileName);
        If Count > 0 Then Edit1.Text := Items[0] Else Edit1.Text := '';
        If Count > 1 Then Edit2.Text := Items[1] Else Edit2.text := '';
        Free;
      End;
end;