program igra;
var
  Vuhod, Vubor: command;
  index, waiting: integer;
begin
  waiting := 0;
  while (waiting < 100) do
  begin
    index := formAddGauge('Wait...', false, 100, waiting);
    waiting:=waiting+1;
    showForm;
    clearForm;
  end;
  Vuhod := createCommand('Exit', CM_EXIT, 1);
  Vubor := createCommand('Ok', CM_OK, 1);
  addCommand(Vuhod);
  addCommand(Vubor);
  showForm;
  delay(3000);
end.