[NumLock]

1.

Код:

IsConsole: Boolean;       { True if compiled as console app }

2.

Код:

function ConsoleIs: Boolean;
begin
  Result:=GetStdHandle(STD_OUTPUT_HANDLE)<>0;
end;