Edit вывод текста.

procedure TMemoStrings.Insert(Index: Integer; const S: string);
var
  SelStart, LineLen: Integer;
  Line: string;
begin
  if Index >= 0 then
  begin
    SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index, 0);
    if SelStart >= 0 then Line := S + #13#10 else
    begin
      SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index - 1, 0);
      if SelStart < 0 then Exit;
      LineLen := SendMessage(Memo.Handle, EM_LINELENGTH, SelStart, 0);
      if LineLen = 0 then Exit;
      Inc(SelStart, LineLen);
      Line := #13#10 + s;
    end;
    SendMessage(Memo.Handle, EM_SETSEL, SelStart, SelStart);
    [COLOR="Red"]SendTextMessage(Memo.Handle, EM_REPLACESEL, 0, Line);[/COLOR]
  end;
end;

SendMessage(Memo.Handle, EM_REPLACESEL, 0, Integer(Pchar(Line)));

var
  SelPos : Integer;
  LinesCount : Integer;
  LineLength : Integer;
begin
  //после этого шаманства в SelPos находится индекс последнего символа
  LinesCount := SendMessage(Memo1.Handle, EM_GETLINECOUNT, 0, 0);
  SelPos := SendMessage(Memo1.Handle, EM_LINEINDEX, LinesCount - 1, 0);
  LineLength := SendMessage(Memo1.Handle, EM_LINELENGTH, SelPos, 0);
  SelPos := SelPos + LineLength;
  //ставим каретку в самый конец
  SendMessage(Memo1.Handle, EM_SETSEL, SelPos, SelPos);
  //добавляем строку
  SendMessage(Memo1.Handle, EM_REPLACESEL, 0, Integer(Pchar(#13#10'Hello world')));