Буферизация вывода в консоли

uses System;
 const GENERIC_READ = $80000000;
        GENERIC_WRITE = $40000000;
    
function CreateConsoleScreenBuffer(dwDesiredAccess:integer;
                                 dwShareMode:integer;
                                 secutiryAttributes:IntPtr;
                                 Flags:integer;
                                 screenBufferData:IntPtr):IntPtr; external 'kernel32.dll';
function SetConsoleActiveScreenBuffer(hConsoleOutPut:IntPtr):IntPtr;external 'kernel32.dll';
function SetConsoleTextAttribute(hConsoleOutPut:IntPtr;wAttributes:word):boolean;external 'kernel32.dll';
 
function WriteConsole(hConsoleOutput:IntPtr; 
                      lpBuffer:string;
                      nNumberOfCharsToWrite:integer; 
                      var lpNumberOfCharsWritten:integer;
                      lpReserved:IntPtr):boolean; external 'kernel32.dll';
 
begin
  var ptr:=CreateConsoleScreenBuffer(GENERIC_READ or GENERIC_WRITE, $3, IntPtr.Zero, 1, IntPtr.Zero);
  var c:=0;
  var t:IntPtr;
  for i:byte:=0 to 255 do begin
    SetConsoleTextAttribute(ptr, i);
    WriteConsole(ptr,format('{0,4}',i),4,c,t);
  end;  
  SetConsoleActiveScreenBuffer(ptr);
  readln;
end.

uses Crt;
begin
  SetBufferSize(140,2001);
  for i:integer:=1 to 2000 do writeln(i);
  readln;
end.