Здравей,
това трябва да ти свърши работа

var
reChat:TRichEdit;
.
.
reChat.SelStart := Length(reChat.Text);
reChat.SelAttributes.Color := Functions.UserColor;
reChat.SelAttributes.Name := Functions.FontName;
reChat.SelAttributes.Size := Functions.FontSize;
reChat.SelAttributes.Charset := Functions.FontCharset;
reChat.SelText := TextToSend + #13#10;

AquilaX

____________

Съдържаниет е скрито
Влезте за да го видите