[illuhav]

На форме стоит обработчик FormKeyDown. Форма получает нажатие определенных клавиш и загружает на форму изображение и проигрывает звуковой файл. Все нажатия встают в очередь и выполняются, т.е нажал три клавиши - загрузилось три картинки и проигралось три звука. Надо чтобы следующее нажатие происходило только после завершения предыдущего, а вовремя проигрывания нажатия не отлавливались.

[angvelem]

Заведи переменную-флаг, которую будешь взводить при первом нажатии в OnKeyDown-е, по окончании нужных действий, очищай флаг. При последующих "ложных" нажатиях очищай переменную Key.

[illuhav]

Я совсем еще слабо шарю, можно пару строк кода?

[angvelem]

Если ничего не соврал, то так:

Код:

var
  Flag : Boolean = False;

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Flag then
    Key := 0
  else
  begin
//    bla-bla-bla
  end;
end;

procedure 123;
begin
  if MusucStop then
    Flag := False;
end;

[illuhav]

воспроизводим с PlaySound, и работает она в цикле FormKeyDown. Пока играет звук можно нажать клавишу N-раз и FormKeyDown встает в очередь и после все эти N-раз отработает. Нужно не создавать очередь пока звук идет.

[angvelem]

Она и не создастся, если в процедуре/функции, где вызывается PlaySound, перед этим поставить

Код:

    Flag := True;

[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;

[angvelem]

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

И правильно, если посмотришь внимательно, я привёл несколько другой код в OnKeyDown.

[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 а клавиши отлавливаются

[angvelem]

Тут ещё один нюанс, ты используешь флаг SND_SYNC, а этот флаг ждёт завершения проигрывания музыки. Может тебе посмотреть в сторну библиотеки bass?