eine Aktion solange ausführen, wie Maustaste gedrückt ist

[BAMatze]

Hallo an alle,

Ich habe ein Problem. Ich will eine bestimmte Aktion solange ausführen, wie die linke Maustaste gedrückt ist. Habe mich hier schon durch einige ähnliche Beiträge geklickt und folgenden Quellcode geschrieben, der anscheinend bei den anderen funktioniert hat.

Code:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if shift = [ssleft] then Lb_Pos.Caption := 'Maustaste gedrückt'
  else Lb_Pos.Caption := 'Position: '+ inttostr(MMC_getPos);

end;

Meine Frage jetzt ist, warum mir in dem Label Lb_Pos nicht die Schrift "Maustaste gedrückt" angezeigt wird. Die Funktion MMC_getPos kann ignoriert werden, da diese durch eine externe DLL eingeführt wird und auch einen int-Wert zurückgibt.

Es wird durch Delphi kein Fehler angegeben.