Timer und mehrere .OnMouseDown

[Gehstock]

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
if btnMEMOup.OnMouseDown then SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEUP,0);
if btnMEMODown.OnMouseDown then SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEDown,0);
if btnTVup.OnMouseDown then SendMessage(Treeview1.Handle,WM_VSCROLL,SB_LINEUP,0);
if btnTVDown.OnMouseDown then SendMessage(Treeview1.Handle,WM_VSCROLL,SB_LINEDown,0);
end;

ich möchte mit damit ein Memo und ein Treeview scrollen das Klappt bisher nur hab ich bisher 4 Timer dafür benötigt das soll jetzt einer schaffen