en fin solo tenia que mirar la funcion
no me percate y la linea debia ser asi
Código Delphi
[-]function XCopy(Handle: HWND; From,Dest: String): integer;
y otro detalle que no se en que andaba pero no lo veia era que puse doble "
\\"
quedo asi funcionando perfecto
Código Delphi
[-]XCopy(Handle, openDialog1.Files[i], 'C:\nuevo');