procedure THIMainForm._work_doShiftLeft;
begin
  _prop_ShiftLeft := ToInteger(_Data);
  Control.Perform(WM_INNERMESSAGE,0,0);
end;

procedure THIMainForm._work_doShiftTop;
begin
  _prop_ShiftTop := ToInteger(_Data);
  Control.Perform(WM_INNERMESSAGE,0,0);
end;