Как можно гарантированно очистить экран в консольном приложении

Нужно просто использовать GetConsoleScreenBufferInfo() для ввода нескольких пустых строк.

program
 Project1;
{$APPTYPE CONSOLE}
uses

  Windows;
{$R *.RES}
var

  sbi: TConsoleScreenBufferInfo;
  i: integer;
begin

  Writeln('A Console Applicaiton');
  Writeln('Press Enter To Clear The Screen');
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
    sbi);
  Readln;
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
    sbi);
  for
 i := 0 to
 sbi.dwSize.y do

    writeln;
  Writeln('Press Enter To End');
  Readln;
end
.

Другое по теме:

• Как консольное приложение может узнать, что Винды завершаются
• Как использовать консоль в не-консольном приложении
• Как захватить весь вывод в консоли