error copiando multiples archivos

[jonydread]

sale esto
CreateDirectory(PCHAR(Path), 0); --->constant 0 converter to nil
XCopy(Handle, origen, destino); -----> incopatible type Tstrings and string

cambie esta parte y funciona pero crea nueva carpeta y no me copia nada

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
origen, destino: string;
list : Tstrings;
begin
list := tstringlist.Create;
for i:= 0 to Opendialog1.Files.Count-1 do
list.Add(opendialog1.Files[i]);
destino:= 'C:\\nuevo';
 XCopy(Handle, list, destino);

end;

esas lineas
me salen con error