Масштабирование фигуры с помощью ScrollBar Опции

[Psychologist]

Никак не могу сообразить, как с помощью ScrollBar(а) масштабировать простую фигуру (объект Shape). Точнее сам смысл мне понятен, в пикселях изменить размер получилось, а вот масштаб от заданного размера. . .

Вот неправильная процедура ScrollBar:

procedure TForm1.sbScaleScrollChange(Sender: TObject);
begin
shShape.Width:=sbScaleScroll.Position;
shShape.Height:=sbScaleScroll.Position;
end

Здесь sbScaleScroll - сама полоса прокрутки, а shShape - фигура.
Полоса прокрутки может принимать значения от 1 до 100. Соответственно, при таком коде максимальный размер фигуры - 100х100px.

Помогите, пожалуйста. Хотя тут скорее не в Delphi дело, а в самой формуле.