Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как поменять иконку и стpокy в заголовке консольного окна?

01.01.2007
procedure TForm1.Button1Click(Sender: TObject);
var
  h
: HWND;
 
AIcon: TIcon;
begin
 
AllocConsole;
 
SetConsoleTitle(PChar('Console Title'));
 
Sleep(0);
  h
:= FindWindow(nil, PChar('Console Title'));
 
AIcon := TIcon.Create;
  ImageList1
.GetIcon(0, AIcon);
 
SendMessage(h, WM_SETICON, 1, AIcon.Handle);
 
AIcon.Free;
end;

Взято с https://delphiworld.narod.ru