三个scrollbar控件如何响应同一个过程scrollbarchange

三个scrollbar控件怎么响应同一个过程scrollbarchange？
新手请教：三个scrollbar控件怎么响应同一个过程scrollbarchange？
------解决方案--------------------

type

  TForm1 = class(TForm)

    scrlbr1: TScrollBar;

    scrlbr2: TScrollBar;

    procedure scrlbrChange(Sender: TObject);

    procedure FormCreate(Sender: TObject);

。。。。。。

procedure TForm1.scrlbrChange(Sender: TObject);

var

  scrlbr: TScrollBar;

begin

  scrlbr := Sender as TScrollBar;

  Caption := '滚动来自' + scrlbr.Name;

end;


procedure TForm1.FormCreate(Sender: TObject);

begin

  // 当然也可以在事件面板窗口中设置

  scrlbr1.OnChange := scrlbrChange;

  scrlbr2.OnChange := scrlbrChange;

end;