Speicherbox (Wie in Standart-Prog. [speichern unter...])

[Matze]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog1.Execute;  //öffnet den Dialog
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;