Please add to Quick.Console.pas the missing commands : procedure CursorOn; begin Write(AEC, '?25h'); end; procedure CursorOff; begin Write(AEC, '?25l'); end;