procedure THiddenClassName.WmSizing(var Message: TMessage);
var
Rect: PRect;
begin
inherited;
Rect := PRect(Message.LParam);
FMaxHeight := Rect^.Height;
end;
success: function(json) {
$('.UrlInfoCount').html(JSON.parse(json).response.count); // количество