[illuhav]

все тоже

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if flag then Key:= 0
   else begin
    if LtrNum(Key)Then exit;
    Label1.Caption:= LitUkr[n];
    loadImageOfRess(Form1.Image1, true);
    loadImageOfRess(Form1.Image2, false);
    MayPlay;
   end;
end;

т.е. пока звук играет ждем возвращения функции PlaySaund а клавиши отлавливаются