Санёк, ты наверное имел ввиду заголовок окна консоли? В таком случае воспользуйся функцией
Code
SetConsoleTitle(PChar('caption'))
В случае успеха функция возвратит true, в противном случае будет false.
Чтобы получить код и описание ошбики, сделай так:
Code
if not SetConsoleTitle(PChar('caption')) then
writeln('Unable to set caption - '+SysErrorMessage(GetLastError));
Здесь функция API SetConsoleTitle возвращает False, если назначить новый заголовок невозможно. GetLastError возвращает числовое значение последней ошибки API, которое SysErrorMessage конвертирует в строку для вывода на экран.