form üzerinde mousenin scroll tuşu ile gezmek

[karyaege]

selam,
form üzerinde mousenin scroll tuşu ile gezmek istiyorum.formu 800x600 tanımlamam mümkün deil.üzerinde de bir sürü checkbox var.bu checkboxlar runtime create ediliyor.form aşağıya doğru büyüyor.form üzerinde scroll ile nasıl gezebilirm.

[karyaege]

procedure Tlab_istek_fisi_frm.FormMouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
var
J,
I: Integer;
begin
J := WheelDelta;
if (J < 0) then J := -WheelDelta;

while (J <> 0) do
begin
if (WheelDelta > 0) then
// Yukarı kaydırma.
for I := 0 to Pred(5) do Perform(WM_VSCROLL, SB_LINEUP, 0)
else
// Aşağı kaydırma.
for I := 0 to Pred(5) do Perform(WM_VSCROLL, SB_LINEDOWN, 0);

Dec(J, 120);
end;


end;

http://www.akdenizforum.com/delphi/6503 ... animi.html'dan alıntıdır.kod çalışıyor.