hente og gemme fil uden at åbne den

procedure TForm1.Button2Click(Sender: TObject);
var
fil : Tmemorystream;
begin
if opendialog1.Execute then
fil := Tmemorystream.Create();

fil.LoadFromFile(opendialog1.FileName);
if savedialog1.Execute then
fil.SaveToFile(savedialog1.FileName);
fil.Free;
end;

Stoney