Shift gedrückt?

[jjep]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var state: TShiftState;
begin
if ssShift in state   then Outputdebugstring('shift ist gedrückt')
                      else Outputdebugstring('shift ist nicht gedrückt');
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if ssShift in Shift   then Outputdebugstring('shift ist gedrückt')
                      else Outputdebugstring('shift ist nicht gedrückt');
end;

Hmm in der MouseDown-Methode funktioniert es einwandfrei. Muss man vieleicht "state" nocht irgendwie vorbereiten?
Leider will ich es umbedingt mit der Button1Click-Methode machen. Wüsste jemand wie das möglich ist?