Выкладываю свой модуль crt для delphi, недавно написанный для одной программы

что в модуле:

type
_color=0..255;

function _inputhandle:integer;
function _outputhandle:integer;
function GetMaxX:integer;
function GetMaxY:integer;
procedure GotoXY(x,y:integer);
procedure ClrScr;
procedure ClrLine(y:integer);
procedure SetCursorState(visible:Boolean);
function ForeRGB(r,g,b,i:boolean):_color;
function BackRGB(r,g,b,i:boolean):_color;
function MixColors(A,B:_color):_color;
procedure SetTextAttr(attribute:word);
function GetTextAttr:word;
function WhereX:integer;
function WhereY:integer;

GetMaxX, GetMaxY, GotoXY, ClrScr, WheteX, WhereY выполняют то же, что в паскале
ClrLine — заполнить пробелами соответствующую строку
SetTextAttr, GetTextAttr — работа с цветом текста и фона

ForeRGB, BackRGB, MixColors — работа с цветами
четвертый параметр у ForeRGB и BackRGB — насыщенность, тем самым получаются все 16 цветов.
пример
красный текст на желтом фоне:

SetTextAttr(MixColors(ForeRGB(true,false,false,true),BackRGB(true,true,false,true)));

новый модуль: (описан тут)
скачать

И немного философии, ведь использовать паскалевские модули в дельфи — всё равно, что ограждать себя металлической строительной сеткой от удобства и превосходства windows. Но есть и преимущества. Кстати, по поводу металлических сеток — http://oookit.ru — официальный дилер завода.