procedure Cls;
var
  Coords: TCoord;
  Handle: THandle;
  CellCnt: DWORD;
  Written: DWORD;
  BufferInfo: TConsoleScreenBufferInfo;
begin
  Coords.X := 0;
  Coords.Y := 0;
  Handle := GetStdHandle(STD_OUTPUT_HANDLE);

  GetConsoleScreenBufferInfo(Handle, BufferInfo);
  CellCnt := BufferInfo.dwSize.X * BufferInfo.dwSize.Y;
  FillConsoleOutputCharacter(Handle, ' ', CellCnt, Coords, Written);
  GetConsoleScreenBufferInfo(Handle, BufferInfo);
  FillConsoleOutputAttribute(Handle, BufferInfo.wAttributes, CellCnt, Coords,
    Written);
  SetConsoleCursorPosition(Handle, Coords);
end;