[Nyctos Kasignete]

Не знаю, у меня работает и через handle.

Код:

procedure reAddLine(Hnd: HWND; txt: String);
var
 ltext: PAnsiChar;
 newText: string;
begin
  GetMem(ltext, 1024);
  try
    GetWindowText(Hnd, ltext, 1024);
    newText := StrPas(ltext) + txt + #13#10;
    SetWindowText(Hnd, @newText[1]);
  finally
    FreeMem(ltext, 1024);
  end;
end;

Сообщение от AmX

получаеццо строка вида "Название_шрифтаТекст"

Что за "Название_шрифта" ?? o_O