[~TB~]

Может как-то так:

Код:

begin
 if SaveDialog1.Execute then
 begin
  s := TStringList.Create;
  s.Add(Memo1.lines.Strings[1]);
  s.SaveToFile(SaveDialog1.FileName);
  FreeAndNil(s);
 end;
end;