Fórum Combinação de teclas, por favor #371981

var
  Form1: TForm1; vKey: array[0..1] of boolean;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if Key = 65 then vKey[0]:= true;
        if Key = 81 then vKey[1]:= true;
        if (vKey[0] = true) and (vKey[1] = true) then //teclas A+Q
        begin
                vKey[0]:= false;
                vKey[1]:= false;
                showmessage(´oi´);
        end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if Key = 65 then vKey[0]:= false;
        if Key = 81 then vKey[1]:= false;
end;