//FP-  {$EXTERNALSYM EM_LIMITTEXT}
  EM_LIMITTEXT           = $00C5;

//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;

//[procedure TControl.SetMaxTextSize]
procedure TControl.SetMaxTextSize(const Value: DWORD);
var V1, V2: Integer;
begin
  if fCommandActions.aSetLimit <> 0 then
  begin
    V1 := 0; V2 := Value;
    if fCommandActions.aSetLimit = EM_SETLIMITTEXT then
    begin
      V1 := Value; V2 := 0;
    end;
    Perform( fCommandActions.aSetLimit, V1, V2 );
  end;
end;