AltGr-A in einem Eingabefeld TdxBarEdit

[cramer]

Ich möchte, wenn der Focus auf dem Eingabefeld "Suchen" liegt und dort AltGr-A getippt wird, eine Suche nach einer Adresse starten.
Ich bekomme zwar AltGr mit, nicht aber die folgende Taste z.B. das "A" bei gedrückter AltGr Taste.
So siehts in etwa aus:

Delphi-Quellcode:

procedure TWV.SuchenKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  busy;
  MyDebug('SuchenKeyDown = ' + intToStr(key));
  if (ssCtrl in Shift) then MyDebug('SuchenKeyDown = Ctrl');
  if (ssAlt  in Shift) then MyDebug('SuchenKeyDown = Alt');
  if GetAsyncKeyState(VK_RMENU) < 0 then MyDebug('SuchenKeyDown = AltGr');

  if (GetAsyncKeyState(VK_RMENU) < 0) and (key > 31) then begin
    MyDebug('SuchenKeyDown AltGr-' + chr(key) + ' = ' + intToStr(key));
    if Key = ord('A') then begin
      Key := 0;
      SuchenAdresseClick(Sender);
    end;
  end;
  idle;
end;

Wie man sieht, kein a
[732] myDebug SuchenKeyDown = 17
[732] myDebug SuchenKeyDown = Ctrl
[732] myDebug SuchenKeyDown = AltGr

Was kann man tun?
Gruß Uwe