[malwkaf]

Me sirvió mucho, gracias por la ayuda, los había hecho de la siguiente manera...

Código Delphi [-]

var
ruta:String;
Renombra:String;

begin
ruta:=Edit1.Text; //agrego la direccion con OpenDialog
Renombra:=ruta+'.{20D04FE0-3AEA-1069-A2D8-08002B30309D}'

MoveFile ( PChar(ruta), PChar(Renombra) );
end

Y funciona igual, gracias por tu ayuda, haré lo que me dijiste, saludos