[ecfisa]

Hola de nuevo.

Como te comenta Agustin, quitando la alusión a la unidad Crt (y a ClrScr), ese código funciona correctamente en modo consola.

Para lo único que estas incluyendo la unidad Crt es para usar la función ClrScr y, de necesitarla si o si, podes escribir la tuya:

Código Delphi [-]
program Project1; {$APPTYPE CONSOLE}

uses SysUtils, Windows;

procedure ClrScr();
var
  hnd   : THandle;
  scrnfo: CONSOLE_SCREEN_BUFFER_INFO;
  st    : string;
  co    : _COORD;
begin
  hnd  :=  GetStdHandle(STD_OUTPUT_HANDLE);
  GetConsoleScreenBufferInfo(hnd, scrnfo);
  st   := StringOfChar(' ', scrnfo.dwSize.X * scrnfo.dwSize.Y);
  Writeln(st);
  co.X := 0;
  co.Y := 0;
  SetConsoleCursorPosition (hnd, co);
end;

begin
  ClrScr();
  ...

Saludos