1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Addcolored(msg: String; color : integer);
begin
richedit.Lines.Add(msg);
richedit.SelStart := length(richedit.text)-length(msg)-2;
richedit.SelLength := length(msg);
richedit.SelAttributes.Color := color;
richedit.Perform(EM_SCROLLCARET, 0, 0);
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormCreate(Sender: TObject);
var CursorPoint:TPoint;
begin
CursorPoint:=RichEdit1.CaretPos;
RichEdit1.Lines.Add('Hallo Sie schlaue Frau!'+#13#10+'Wie geht es Ihnen denn?'+#13#10+'Gut?'+#13#10+'Na, das hört sich ja erfreulich an!');
RichEdit1.CaretPos:=CursorPoint;
end;