anchor.diff:      s:= UTF8Encode(ed.Text);
       DoExecuteConsoleLine(s);
   
  -    ed.DoAddLineToHistory(Utf8Decode(s), cPyConsoleMaxComboItems);
       ed.Text:= '';
       ed.DoCaretSingle(0, 0);
   
  
positive.code: end;
  
  procedure TfmConsole.DoExecuteConsoleLine(Str: string);
  begin
    DoLogConsoleLine(cPyConsolePrompt+Str);
  
    if Assigned(FOnConsole) then
      if not FOnConsole(Str) then exit;
  
    if (Str<>'') and (Str[1]='=') then
      Str:= 'print('+Copy(Str, 2, MaxInt) + ')';
  
    try
  
negative.code:   cPyConsoleMaxLines = 1000;
    cPyConsoleMaxComboItems: integer = 20;
    cPyConsolePrompt = '>>> ';
    cPyCharNoLog = ';';
    cPyCharPrint = '=';
  
  implementation
  
  