procedure THIMoveWindow._work_doMove;
var wnd:HWND;
begin
wnd := ReadInteger(_Data,_data_Handle,0);
ReleaseCapture;
SendMessage(wnd,WM_SYSCOMMAND, $F012, 0);
end;