[angvelem]

Как понимаю, весь сыр-бор из-за желания использовать моноширинный текст? Так ведь на шрифте "Terminal" свет клином не сошёлся. Можно использовать "Lucida Console".

Код:

  Edit := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', nil,
                         WS_CHILD or WS_VISIBLE or WS_VSCROLL or ES_AUTOHSCROLL or ES_MULTILINE or ES_WANTRETURN,
                         10, 10, 300, 100,
                         Wnd, 100, hInstance, nil);
  SendMessage(Edit, EM_REPLACESEL, 0, Integer(PChar('Сообщение: '#13#10)));

  Font := CreateFont(-12, 0, 0, 0, 0, 0, 0, 0, 
                     DEFAULT_CHARSET, 
                     OUT_DEFAULT_PRECIS, 
                     CLIP_DEFAULT_PRECIS, 
                     DEFAULT_QUALITY, 
                     DEFAULT_PITCH or FF_DONTCARE, 'Lucida Console');

  SendMessage(Edit, WM_SETFONT, Font, 0);