谁做过这样的功能

   有个DLEHPI开发的工具,它的文件剪切功能怎么实现的哦,就是在软件里点一下剪切,在用WIONDWS的粘贴就可以了   而我只能做复制过程,不能象它一样利用WINDOWS来操作一样可以把源文件删除掉   文件剪切怎么实现啊,下面是我复制文件的过程,怎么改成剪切呢?
    procedure   CopyFilesToClipboard(FileList:   string);
  var
      DropFiles:   PDropFiles;
      hGlobal:   THandle;
      iLen:   Integer;
  begin
      iLen   :=   Length(FileList)   +   2;
      FileList   :=   FileList   +   #0#0;
      hGlobal   :=   GlobalAlloc(GMEM_SHARE   or   GMEM_MOVEABLE   or   GMEM_ZEROINIT,
          SizeOf(TDropFiles)   +   iLen);
      if   (hGlobal   =   0)   then   raise   Exception.Create('没有找到');
      begin
          DropFiles   :=   GlobalLock(hGlobal);
          DropFiles^.pFiles   :=   SizeOf(TDropFiles);
          Move(FileList[1],   (PChar(DropFiles)   +   SizeOf(TDropFiles))^,   iLen);          GlobalUnlock(hGlobal);
          Clipboard.SetAsHandle(CF_HDROP,   hGlobal);
      end;