[Savant]

Мде, заклинило меня на этом Append , с StrCat чего-то попутал (подумал, что надо добавить одну строку в конец другой, а не новую строку в Memo ). Второе намного проще:

Код:

procedure AppendLine(hwnd: Cardinal; const S: String);
// соответствует методу Append
begin
  SendMessage(hwnd, EM_SETSEL, MaxInt, MaxInt);
  SendMessage(hwnd, EM_REPLACESEL, 0, Longint(PChar(S + #13#10)));
end;

function AddLine(hwnd: Cardinal; const S: String): Integer;
// соответствует методу Add
begin
  AppendLine(hwnd, S);
  Result := SendMessage(hwnd, EM_LINEFROMCHAR, -1, 0) - 1;
end;