Hjælp til at gemme

Jeg har fået hjælpe til at lave det her:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  SL : TStringList;
begin
  If OpenDialog1.Execute Then
    Begin
      SL := TStringList.Create;
      Try
        SL.LoadFromFile(OpenDialog1.FileName);
        Try
          Edit1.Text := SL[0];
          Edit2.Text := SL[1];
        Except
          On E: EStringListError Do
            ShowMessage('Fejl, den indlæste fil indeholder ikke mindst 2 linier')
        End
      Finally
        SL.Free;
      End;
    End;
end;

Det virker godt! Kan man lave noget lignende bare sådan at den gemmer!