//FP-  {$EXTERNALSYM WM_USER}
  WM_USER             = $0400;

  EM_EXLIMITTEXT      = WM_USER + 53;

procedure THiAsmClass.doUnlimitText;
var
  sControl: PControl;
begin
  sControl := PControl(ToIntegerEvent(PHandle));
  if not Assigned(sControl) then exit;
  sControl.MaxTextSize := $FFFFFFFF;
end;