[[nlsgarcia]]

pokexperto1,

...sigue sin copiar nada...código de nelson (nlsgarcia) tal cual esta en el foro...

Revise el vídeo que colocastes en Youtube y veo que usas Delphi XE7.

Pregunto :

1- ¿Que versión de Windows utilizas?, ¿Es de 32 ó 64 bits?.

2- ¿Estas compilando en 32 ó 64 bits?

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, System.UITypes;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;
   chosenDirectory : String;
   FromFileName, ToFileName : String;
   MsgUser : string;

begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'Archivo a Copiar|*.*';
   openDialog.FilterIndex := 1;
   if openDialog.Execute then
   begin
      if SelectDirectory('Seleccione un Directorio de Destino de Copia', 'C:\', chosenDirectory) then
      begin
         FromFileName := openDialog.FileName;
         ToFileName := chosenDirectory + '\' + ExtractFileName(openDialog.FileName);
         if Copyfile(PChar(FromFileName),PChar(ToFileName),True) then
            MsgUser := 'Archivo Copiado'
         else
            MsgUser := 'El Archivo No Fue Copiado, Existe en el Directorio Destino';
         MessageDlg(MsgUser,mtInformation,[mbOK],0);
      end
      else
      begin
         MsgUser := 'No se Selecciono Ningún Directorio de Destino';
         MessageDlg(MsgUser,mtInformation,[mbOK],0);
      end;
   end
   else
   begin
      MsgUser := 'No se Selecciono Ningún Archivo para Copiar';
      MessageDlg(MsgUser,mtInformation,[mbOK],0);
   end;
   openDialog.Free;
end;

end.

El código anterior en Delphi XE7 sobre Windows 10 Technical Preview x32, permite copiar un archivo de un directorio cualquiera a un directorio destino por medio de la función CopyFile.

Nota : En el código del Msg #6, faltaba incluir el carácter '\' en el String ToFileName.

Espero sea útil

Nelson.