OnKeyDown TShiftState und Key

[rokli]

Moin zusammen!

Habe gerade die schwarze Brille auf:

Delphi-Quellcode:

  // Stg-S = speichern
  if (ssShift in Shift) and
     ((Key = 115) or (Key = 83)) then begin     // <--- das krieg ich nicht mit
      if savSQL.Execute then begin
         rieSQL.Lines.SaveToFile(savSQL.FileName);
      end;
  end;

führt nicht zum Ziel

Delphi-Quellcode:

  // Stg-S = speichern
  if (ssShift in Shift) tehn begin
    if ((Key = 115) or (Key = 83)) then begin       // < --- hier liegt mein Prob
      if savSQL.Execute then begin
         rieSQL.Lines.SaveToFile(savSQL.FileName);
      end;
      end;
  end;

geht leider genauso wenig

Mein Problem: ich bekomme die Abfrage vom Buchstaben 'S' nicht hin. Wenn ich das Tasstaturergebnis mit

  stbMain.Panels[5].Text   := ShortCutToText(ShortCut(Key, Shift)); auslese ist alles klar ...

Kann mir jemand helfen, das ich Strg-S korrekt ansteuere??

Vielen Dank
Rolf