Из Edit в RichEdit.

[SanekIrk]

Доброго времени суток. Подскажите, как слово из Edit, у которого цвет текста например красный, перекинут в RichEdit сохраняя цвет.
За помощь буду очень благодарен.

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
Edit1.SelectAll;
k := RichEdit1.GetTextLen;
RichEdit1.Lines.Add(Edit1.SelText);
RichEdit1.SelStart := k;
RichEdit1.SelLength := length(Edit1.SelText);
RichEdit1.SelAttributes.Color := Edit1.Font.Color;
end;

[SanekIrk]

Нюансик. Другим цветом записывает, и продолжает писать этим же цветом, а мне надо чтобы определенным цветом было только одно слово, при нажатии на эту же кнопку. Второе слово берет со второго Editа.

Например -вот так

[Sazary]

Ну тогда как-нибудь так:

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
Edit1.SelectAll;
k := RichEdit1.GetTextLen;
RichEdit1.Lines.Add(Edit1.SelText);
RichEdit1.SelStart := k;
RichEdit1.SelLength := length(Edit1.SelText);
RichEdit1.SelAttributes.Color := Edit1.Font.Color;
RichEdit1.SelStart := k+length(Edit1.SelText);
RichEdit1.SelLength := 0;
RichEdit1.SelAttributes.Color := clBlack;

end;

[SanekIrk]

Понял. Спасибо!