anchor.diff:      begin
        if (pole_dat[0] = 'help') then
         begin
  -       M_console.Lines.Add('InCommandRP404\>Napoveda :');
  -       M_console.Lines.Add('centrala [open/close]               Pripojeni k centrale');
  -       M_console.Lines.Add('mtb [start/stop/open/close] [hard]  Povely pro MTB');
  -       M_console.Lines.Add('clear                               Smaze konzoli');
  -       M_console.Lines.Add('lic-accept                          Akceptuje licenci');
  -       M_console.Lines.Add('exit                                Zavre okno konzole');
  -       M_console.Lines.Add('app-exit                            Nouzove regulerni ukonceni aplikace');
  -       M_console.Lines.Add('log-stop                            Zastaveni vypisu do centralniho logu');
  -       M_console.Lines.Add('getobj [form]                       Vypise vsechny objekty z formulare v parametru');
  +       M_console.Lines.Add('Napoveda:');
  +       M_console.Lines.Add('centrala [open/close]       Pripojeni k centrale');
  +       M_console.Lines.Add('mtb [start/stop/open/close] Povely pro MTB');
  +       M_console.Lines.Add('clear                       Smaze konzoli');
  +       M_console.Lines.Add('exit                        Zavre okno konzole');
  +       M_console.Lines.Add('app-exit                    Nouzove regulerni ukonceni aplikace');
  +       M_console.Lines.Add('nuz [id bloku useku]        Nouzove uvolneni zaveru useku');
         end;
   
        if (pole_dat[0] = 'clear') then PM_DeleteConsoleClick(Self);
   
  -     if (pole_dat[0] = 'getobj') and (pole_dat.Count = 2) then
  -      begin
  -       for cyklus := 0 to Application.ComponentCount-1 do
  -         if (LowerCase(Application.Components[cyklus].ClassName) = 't'+pole_dat[1]) then
  -           for cyklus1 := 0 to Application.Components[cyklus].ComponentCount-1 do
  -             M_console.Lines.Add('InCommandRP177\>'+pole_dat[1]+':'+Application.Components[cyklus].Components[cyklus1].Name+'('+Application.Components[cyklus].Components[cyklus1].ClassName+')');
  -      end;
  -
        if (pole_dat[0] = 'exit') then
         begin
  -       M_console.Lines.Add('InCommandRP207\>Zavreno okno konzole');
  +       M_console.Lines.Add('Zavreno okno konzole');
          F_Console.Close;
         end;
   
  
positive.code:      M_Console.Lines.Add('Exception : ' + E.Message);
   end;
  
   M_console.Lines.Add('InCommandRP'+GetZkrVersion(Application.ExeName)+'\>');
   E_console.Text := '';
   pole_dat.Free;
  end;//procedure
  
  procedure TF_Console.PM_DeleteConsoleClick(Sender: TObject);
   begin
    M_console.Clear;
    M_console.Lines.Add('------------------------');
    M_console.Lines.Add('InCommandRP'+GetZkrVersion(Application.ExeName)+'\>');
   end;//procedure
  
  end.//unit
  
negative.code:  try
     ExtractStrings([' ','(',')'], [],PChar(LowerCase(E_console.Text)),pole_dat);
  
     M_console.Lines.Strings[M_console.Lines.Count-1] := M_console.Lines.Strings[M_console.Lines.Count-1] + E_console.Text;
  
     if (F_Options.CHB_Log_console.Checked) then
       writelog('Console: '+E_console.Text,WR_CONSOLE);
  