как правильно подобрать размер scrollbar'а?

[BLACK_RAIN]

сделал вот так:

  ScrollBar1.Max := (cubeHeight + gap) * RowsCount;
  ScrollBar1.PageSize := pnl1.Height;

Тогда скроллбар выглядит и таскается нормально. Но если нажимать на нижнюю стрелочку, то прокрутка идёт дальше, хотя визуально видно, что дальше некуда.
Такое впечатление, что не хватает каких-то свойств или какие-то свойства не настроены или работают не правильно.

[BLACK_RAIN]

Сообщение от BLACK_RAIN

Но если нажимать на нижнюю стрелочку, то прокрутка идёт дальше, хотя визуально видно, что дальше некуда.

А если сделать, чтобы диапазон прокрутки соответствовал реальности, то тогда размер ползунка получается не правильный.
Никто не расскажет, как сделать правильно?

[BLACK_RAIN]

Кажется, что проблема решена при помощи костыля

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  if ScrollBar1.Position > ScrollBar1.Max - Panel1.Height then
  ScrollBar1.Position := ScrollBar1.Max - Panel1.Height;
  SortBlocks;
end;

на WinAPI эта проверка, почему-то, делается автоматически.
Вот полный код с исправлениями:

procedure TForm1.SortBlocks;
const
  gap = 4;
var
  i,n,xStart,x,y, PerRow, RowsCount, BlocksCount : Integer;
begin
  PerRow := Trunc(Panel1.Width / (BlockWidth + gap));
  if PerRow = 0 then
  PerRow := 1;
  BlocksCount := Length(ar);
  if BlocksCount mod PerRow = 0 then
  RowsCount := trunc(BlocksCount / PerRow) else
  RowsCount := trunc(BlocksCount / PerRow) + 1;
  i := (BlockHeight + gap) * RowsCount;
  if i > Panel1.Height then
  begin
    ScrollBar1.Max := i;
    ScrollBar1.PageSize := Panel1.Height;
    ScrollBar1.LargeChange := Panel1.Height;
    ScrollBar1.Enabled := True;
  end else
  begin
    ScrollBar1.Position := 0;
    ScrollBar1.Enabled := False;
  end;
  xStart := Round((Panel1.Width div 2) - (((BlockWidth + gap) * PerRow) div 2));
  x := xStart;
  y := -BlockHeight - gap;
  for i := 0 to BlocksCount - 1 do
  begin
    if i mod PerRow = 0 then
    begin
      inc(y, BlockHeight + gap);
      x := xStart;
    end;
    ar[i].Top := y - ScrollBar1.Position;
    ar[i].Left := x;
    inc(x, BlockWidth + gap);
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, BlocksCount : Integer;
begin
//  Randomize;
  BlockWidth := 100;
  BlockHeight := 100;
//  BlocksCount := Random(400);
  BlocksCount := 21;
  SetLength(ar, BlocksCount);
  for I := 0 to BlocksCount - 1 do
  begin
    ar[i] := TPanel.Create(nil);
    ar[i].Parent := Panel1;
    ar[i].Font.Size := 12;
    ar[i].Caption := IntToStr(i + 1);
//    ar[i].Left := 0;
//    ar[i].Top := i * BlockHeight;
    ar[i].Width := BlockWidth;
    ar[i].Height := BlockHeight;
    ar[i].ParentColor := False;
    ar[i].Color := RGB(Random(255), Random(255), Random(255));
  end;
  Panel1.ParentColor := False;
  Panel1.Color := 0;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i : Integer;
begin
  for I := 0 to Length(ar) - 1 do
    ar[i].Free;
end;

procedure TForm1.FormResize(Sender: TObject);
var
  n : Integer;
begin
  ScrollBar1.Left := Width - 40;
  ScrollBar1.Top := 0;
  ScrollBar1.Height := Height - 40;

  Panel1.Width := Width - 44;
  Panel1.Height := Height - 40;

  if ScrollBar1.Position >= ScrollBar1.Max - Panel1.Height then
  begin
    n := ScrollBar1.Max - ScrollBar1.Position;
    if Panel1.Height > n then
    ScrollBar1.Position := ScrollBar1.Position - (Panel1.Height - n);
  end;
  SortBlocks;
  Caption := IntToStr(ScrollBar1.Position) + ' / ' + IntToStr(ScrollBar1.Max) +
    ' / ' + IntToStr(Panel1.Height) + ' / ' + IntToStr(n);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  if ScrollBar1.Position > ScrollBar1.Max - Panel1.Height then
  ScrollBar1.Position := ScrollBar1.Max - Panel1.Height;
  SortBlocks;
  Caption := IntToStr(ScrollBar1.Position) + ' / ' + IntToStr(ScrollBar1.Max);
end;

Однако, всё-равно остался глюк с неправильным миганием сколлинга. Он мигает не в том месте.