[xchrom]

хм событие OnChange ScrollBar'a

Код:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Label1.Caption := IntToStr(ScrollBar1.Position);
end;