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

procedure TForm1.Button1Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Style:= [fsBold];
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('This line of text will be red.');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

count:= 0;
for a := 0 to Console.Lines.Count - 1 do
begin
        count:= count + Length(Console.lines.Strings[a]) + 2;
end;
count:= count + 2;

  Console.Lines.Add(Nick + ' hat den Raum ' + Copy(Raum, 2, Length(Raum)) + ' betreten');

  with Console.SelAttributes do
  begin
    Console.SelStart:= count - 2;
    Console.SelLength:= Length(Nick + ' hat den Raum ' + Copy(Raum, 2, Length(Raum)) + ' betreten');
    Style:= [fsBold];
    Color:= $00BFBFBF;
  end;					

1:
2:
3:
4:

RichEdit.SelAttributes.Style:=[fsBold];
RichEdit.SelText:='Fetter Text';
RichEdit.SelAttributes.Style:=[];
RichEdit.SelText:='und normaler Text';