[illuhav]

У меня всеравно все нажатия отлавливает

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if flag then Key:= 0;
   if LtrNum(Key)Then exit; // опредиляет нужные клавиши
   Label1.Caption:= LitUkr[n];
   loadImageOfRess(Form1.Image1, true);
   loadImageOfRess(Form1.Image2, false);
   MayPlay;
end;

function TForm1.MayPlay: bool;
begin
  flag:= true;
  PlaySound(PChar('SND' + IntToStr(n)), 0, SND_RESOURCE or SND_SYNC);
  flag:= false;
end;