Hotkey per Button

[SaFu]

Hi,

ich versuche einen USB-Switch per kleinen Tool umzuschalten, der Hotkey für den USB-Switch ist zweimal "Rollen" (Scroll) drücken. Das ganze später noch per Timer.

Nun habe ich folgendes geschrieben

Code:

const
  VK_SCROLL = 145; // SCROLL LOCK Taste 

procedure TForm1.Button1Click(Sender: TObject);
begin
 Keybd_Event(VK_Scroll,0,0,0);
end; 


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if  key = VK_Scroll then
     begin
      ShowMessage('gedrückt')
     end
     else
      ShowMessage('nix')
     end;  
end;

Soweit wird in der Message alles richtig ausgegeben wenn der Button gedrückt wird, leider tut sich am Switch nix. Muss ich was anderes benutzen oder warum wird es nicht angenommen?

LG