Вот неправильная процедура ScrollBar:
procedure TForm1.sbScaleScrollChange(Sender: TObject);
begin
shShape.Width:=sbScaleScroll.Position;
shShape.Height:=sbScaleScroll.Position;
end
Здесь sbScaleScroll - сама полоса прокрутки, а shShape - фигура.
Полоса прокрутки может принимать значения от 1 до 100. Соответственно, при таком коде максимальный размер фигуры - 100х100px.
Помогите, пожалуйста. Хотя тут скорее не в Delphi дело, а в самой формуле.