[[egostar]]

Yo creo que es mejor así, tu idea es muy buena Roberto01

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fileSource, fileDest: string;
begin
  if opendialog1.Execute then begin
     fileSource := opendialog1.FileName;
     if savedialog1.Execute then begin
        filedest:=savedialog1.FileName;
        CopyFile(PChar(filesource),PChar(filedest), False);
     end;
  end;
end;

Saludos