[ApplicatiOn]

Очистить полотно консоли от текста можно так:

program Project1;


{$APPTYPE CONSOLE}


uses Windows;


var

buffer: TConsoleScreenBufferInfo; //буфер

i: integer;

begin

WriteLn('Press <Enter> to clear screen');

ReadLn;

GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT _HANDLE),buffer);

for i:=0 to buffer.dwSize.y do writeln;
Readln;
end.

наверно только так)))