چطور مقدار pageSize لغزنده عمودی استرینگ گرید رو بدست بیارم؟

[mbshareat]

سلام
نمی دونم چرا استرینگ گرید در نسخه دلفی من به طور پیشفرض اندازه دستگیره وسط لغزنده رو همیشه یک اندازه می گیره.(بدون در نظر گرفتن تعداد رکوردها و رکوردهای قابل مشاهده)
می خواستم اندازه pageSize رو تغییر بدم.با کد زیر موفق نشدم.جستجوی اینترنت هم بی نتیجه بود:

procedure TForm1.SetVScrollPageSize;
var
info: TScrollInfo;
H,H2:Word;
begin
H:=StringGrid1.Height;
H2:=StringGrid1.DefaultRowHeight+StringGrid1.GridL ineWidth;
fillchar( info, sizeof( info ), 0 );
with info do Begin
cbsize := sizeof( info );
fmask := SIF_ALL;
GetScrollInfo( stringgrid1.handle, SB_VERT, info );
nPage := H div H2 -StringGrid1.FixedRows;
nMin:=StringGrid1.FixedRows;
nMax :=StringGrid1.RowCount-StringGrid1.FixedRows;
end;
setscrollinfo( stringgrid1.handle, SB_VERT, info, True );
end;


اشکال کار از کجاست؟