procedure THIWinFTP._work_doDelete;
begin
  if not FtpDeleteFile(hFTP, PChar(ReadString(_data,_data_RemoteName,_prop_RemoteName))) then
    _hi_onEvent(_event_onError,4);
end;