procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  if not Assigned(GorillaModel1) then
    Exit;

  if (KeyChar = 'e') then
  begin
    // next animation if exists
    if (GorillaModel1.AnimationManager.Animations.Count > 0) then
    begin
      GorillaModel1.AnimationManager.PlayNextAnimation();
    end;
  end
  else if (KeyChar = 'q') then
  begin
    // previous animation if exists
    if (GorillaModel1.AnimationManager.Animations.Count > 0) then
    begin
      GorillaModel1.AnimationManager.PlayPreviousAnimation();
    end;
  end;
end;