[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Key_A: Boolean;
    Key_S: Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Ord('A'): Key_A:=True;
    Ord('S'): Key_S:=True;
  end;
  if Key_A and Key_S then
  begin
    Key_A:=False;
    Key_S:=False;
    ShowMessage('ok');
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Ord('A'): Key_A:=False;
    Ord('S'): Key_S:=False;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:=True;
  Key_A:=False;
  Key_S:=False;
end;

end.