flag; dool:= true; // глобальная

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

function TForm1.MayPlay: bool;
begin
 flag:= true; // не проходит
 PlaySound(PChar('SND' + IntToStr(n)), 0, SND_RESOURCE or SND_SYNC);
 flag:= false;
end;