"Bitte eine Taste drücken" und dann Virtual Key Code erhalte

[Nils_13]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Text := Edit1.Text + Chr(Key);
  if Key = ord('A') then
    ShowMessage(Edit1.Text);
end;

Ich habe zum testen Enabled auf False gestellt, es läuft einwandfrei.
ShowMessage ersetzen und fertig.