.........
   Control.OnChange := _OnChange;
   if _prop_Ctl3D = 0 then
     Control.Style:= Control.Style and not ws_BORDER;
   inherited;
   Control.Text := _prop_Strings;
   Control.SubClassName := 'obj_MemoControl';
   Control.MaxTextSize:=MaxInt; // Добавить!
end;

........
     Text := _prop_Strings;
//     RE_AutoURLDetect := true;
     RE_FmtStandard;
     RE_FmtAutoColor := true;
     RE_Font.FontName := Control.Font.FontName;  
     RE_Font.Color := Control.Font.Color;
     OnRE_URLClick := _OnURLDetect;
	 Control.MaxTextSize:=MaxInt; // Добавить! 
    end;
end;