OpenDialog Datein öffnen und woanders speichern...?

[Ultimator]

Müsste so passen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var M:Tmemorystream;
begin
  M:=TMemorystream.Create;
  M.LoadFromFile(OpenDialog1.FileName);
  M.SaveToFile(ExtractFilePath(Application.Exename));
end;