1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

unit REUtils;

interface

uses
ComCtrls, Graphics;

procedure AddLine(Text: string; color: TColor; RE: TRichEdit);
procedure AddText(Text: string; color: TColor; RE: TRichEdit);

implementation

procedure AddLine(Text: string; color: TColor; RE: TRichEdit);
begin

    RE.Lines.Add(Text);
    RE.SelStart := RE.SelStart - Length(Text) - 2;
    RE.SelLength := Length(Text);

    if copy(RE.SelText, 1, 1) = #13 then
    begin
       RE.SelStart := RE.SelStart + 2;
       RE.SelLength := Length(Text);
    end;

    RE.SelAttributes.Color := color;
end;

procedure AddText(Text: string; color: TColor; RE: TRichEdit);
begin
   RE.Lines[RE.Lines.Count - 1] := RE.Lines[RE.Lines.Count - 1] + Text;
   RE.SelStart := RE.SelStart - Length(Text);
   RE.SelLength := Length(Text);
   RE.SelAttributes.Color := color;
   RE.SelStart := RE.SelStart + Length(Text);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

...
  RE.Lines.Add(Text);  //ist ja klar, Text wird geschrieben
  RE.SelStart := RE.SelStart - Length(Text) - 2;
{setzt Cursor vor das geschriebene Wort, setzt allerdings voraus, das der Cursor auch am Textende ist, deswegen wäre folgendes sicherer}

  RE.SelStart := Length(RE.Text) - Length(Text) - 2;  //dies sollte verwendet werden
{ - 2 -> da jeder Zeilenumbruch zwei Zeichen lang ist (#13#10)}

  RE.SelLength := Length(Text); //'Text' wird markiert
  RE.SelAttributes.Color := color; //'Text' wird eingefärbt
...