ScrollBox beim Scrollen aktualisieren

[Evian]

Hallöchen,

ich möchte auch gern eine Scrollbar haben, die sich automatsich beim Scrollen aktualisiert... also dass es flüssig aussieht,
aber irgendwie stell ich mich zu blöde an... es gibt nur fehler:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ComCtrls;

type
  TMyScrollBox=Class(TScrollBox)
    public
     Procedure WMVSCROLL(Var Msg: TWMSCROLL); message WM_VSCROLL;
     Procedure WMHSCROLL(Var Msg: TWMSCROLL); message WM_HSCROLL;
    end;

  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Image1: TImage;
    MainMenu1: TMainMenu;
    Start1: TMenuItem;
    ScrollBox1: TMyScrollBox;
    ScrollBox2: TMyScrollBox;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;




var
  Form1: TForm1;
  Scrol: TMyScrollBox;

implementation

{$R *.dfm}

Procedure TMyScrollBox.WMVSCROLL(Var Msg: TWMSCROLL);
Begin
  If (Msg.ScrollCode=SB_THUMBTRACK) Then
    VertScrollBar.Position := Msg.Pos;
End;

Procedure TMyScrollBox.WMHSCROLL(Var Msg: TWMSCROLL);
Begin
  If (Msg.ScrollCode=SB_THUMBTRACK) Then
    VertScrollBar.Position := Msg.Pos;
End;


end.

Mh.. hab leider schon ewig nicht mehr mit Delphi gearbeitet und hab keine Ahnung mehr, wie man da mit neuen klassen richtig arbeitet. Kann mir jemand einen Tip geben, wie ich das am besten angehe?!

Gruss

Evian