Идеальный вес

[radeon123]

Приложение для идеального веса
Cкрин формы

http://imglink.ru/pictures/10-02-12/...c61f7f05b8.jpg

procedure TForm1.Label1Click(Sender: TObject);
begin
 Label1.Caption:='Рост(см): '+IntToStr(ScrollBar1.Position);
end;
 
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 Label5.Caption:=IntToStr(ScrollBar1.Position);
end;
 
procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 Label6.Caption:=IntToStr(ScrollBar2.Position);IntToStr(ScrollBar2.Position);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 Ves: real;
begin
  if RadioGroup1.ItemIndex=1 then Ves:=(3*StrToInt(Label5.Caption)-450+
                                  StrToInt(Label6.Caption))*0.25+45;
  if RadioGroup1.ItemIndex=0 then Ves:=(3*StrToInt(Label5.Caption)-450+
                                  StrToInt(Label6.Caption))*0.225+40.4;
 Label4.Caption:=FloatToStr(Ves);
end;

Как сделать так, чтоб не нужно было нажимать на кнопку (кнопки на скрине нету, её добавил в последствии) а чтоб цифры сами бегали в зависимости от того где будут ползунки

[radeon123]

Вроде вот так вот, кто поможет?

[Smitt&Wesson]

Обработчик события ползунка - onChange.