var
  F : TShFileOpStruct;
begin
  F.Wnd := Handle;    // if 0, then no parent and can task switch away
  F.wFunc := FO_COPY;
  F.pFrom := 'C:\1\svchosi.exe';
  F.pTo := 'C:\1\2\svchosi.exe';
  F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
  if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed');
end;