error copiando multiples archivos

[jonydread]

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');