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