Problem mit OnKeyDown

[ichbins]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (((key='S')or(key='s')) and (ssalt in shift)) then
    button1click(button1);
end;