Добавление текста из Edit в memo

FormText.Memo.Lines.Strings[FormText.Memo.CaretPos.Y]:=edit.text;

Memo1.SelLength := 0;
Memo1.SelText := Edit1.Text;

Memo1.SelLength := 0;

  Memo.Lines.Add('Новая строка внизу.');

procedure TForm1.Memo1Click(Sender: TObject);
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', ' ', #9, #10, #13];
var
  Cp : TPoint;
  S : String;
  Len, P1, P2 : Integer;
begin
  Cp := Memo1.CaretPos;
  S := Memo1.Lines[Cp.Y];
  Len := Length(S);
 
  //Ищем границу слова слева.
  for P1 := Cp.X + 1 downto 1 do begin
    if (P1 = 1) or (S[P1 - 1] in D) then Break;
  end;
  Dec(P1);
  //Ищем границу слова справа.
  for P2 := Cp.X + 1 to Len do begin
    if (P2 = Len) or (S[P2 + 1] in D) then Break;
  end;
  Dec(P2);
 
  Memo1.SelStart := P1;
  Memo1.SelLength := P2 - P1 + 1;
end;