OnMouseDown und KEYBD_EVENT

[LaPeter]

Hallöchen,

baue grad eine Touchscreen-Anwendung unter Verwendung von Chromiumembedded.
Der Anwender will zum Scrollen nicht den Scrollbalken, sondern Buttons.

Über die Buttons möchte ich die Pfeiltasten simulieren.

Delphi-Quellcode:

so zum Beispiel:

procedure TForm1.BT_Scroll_MouseDown(Sender: TObject);
var i : Integer;
begin
    KEYBD_EVENT(VK_UP,0,0,0); // Pfeil-taste drücken
    KEYBD_EVENT(VK_UP,0,KEYEVENTF_KEYUP,0)  // loslassen

end;

KEYBD_EVENT funktioniert aber offensicht nicht im onMouseDown-Ereignis,
sondern nur im onMouseUp bzw onClick-Ereignis.

Gibt es eine andere Möglichkeit, auf das Halten der Maustaste zu reagieren?

Danke schon mal
Peter