<br />
<b>Warning</b>:  Undefined array key "translationlc" in <b>/usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php</b> on line <b>237</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in <b>/usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php</b> on line <b>33</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in <b>/usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php</b> on line <b>34</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in <b>/usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php</b> on line <b>35</b><br />
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;