procedure MoveFile(Handle:THandle;Source,Dest:string);
var
FO:TShFileOpStruct;
begin
FillChar(FO,Sizeof(FO),#0);
FO.wnd :=Handle;
FO.wFunc :=FO_Move;
FO.flags :=FOF_NoCONFIFMATION;
FO.pFrom :=pchar(Source+#0#0);
PO.pTo :=pchar(Dest+#0#0);
ShFileOperation(FO);
end;
