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

VAR Pos: Integer;
begin
  Pos := Length(Memo.Text) + 1; // Ab hier soll markiert werden, als ab da, wo
  // der neue Text eingefügt wird

  Memo.Lines.Add(string1); // Der Text wird eingefügt
  Memo.SelStart := Pos; // Ab hier wird markiert
  Memo.SelLength := Length(Memo.Text) - Pos; // uns zwar bis zum Ende
  Memo.SelAttributes.Style := [fsBold]; // Das ganze wird fett.

  // Jetzt soll ans Ende der Zeile im Prinzip ein nicht mehr fetter Text angehängt werden
  Memo.Lines.Strings[Memo.Lines.Count-1] := Lines.Strings[chat_fenster.Lines.Count-1] + string2;
  
  Memo.SelStart := Length(Memo.Text) - Length(string2); // markiert den neu eingefügten
  Memo.SelLength := Length(string2); // Bereich
  Memo.SelAttributes.Style := []; // Und hier habe ich ein Problem. Wie setzte ich die Eigenschaften
 //  wieder auf "Standart?" Mit [] geht es nicht. [fsNone] oder [fsNormal] haut auch nicht hin
  
end;					

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

VAR Pos: Integer;  
begin  
  Pos := Length(Memo.Text) + 1; // Ab hier soll markiert werden, als ab da, wo  
  // der neue Text eingefügt wird  
 
  Memo.Lines.Add('string1 in fsBold'); // Der Text wird eingefügt  
  Memo.SelStart := Pos; // Ab hier wird markiert  
  Memo.SelLength := Length(Memo.Text) - Pos; // uns zwar bis zum Ende  
  Memo.SelAttributes.Style := [fsBold]; // Das ganze wird fett.
  Memo.Lines.Add('String in Normal-Formatierung');					

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

  start := Length(Memo.Text);
  Memo.Lines.Add(string1);
  ende := Length(Memo.Text) - start - 3; // Die 3 kann ich mir nicht erklären, aber ohne sie gehts nicht...

  Memo.Lines.Strings[Memo.Lines.Count-1] := Memo.Lines.Strings[Memo.Lines.Count-1] + string2;
  Memo.SelStart := start;
  Memo.SelLength := ende;
  Memo.SelAttributes.Style := [fsBold];					

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

var Pos: Integer;
begin
  Pos := Length(RichEdit1.Text) + 1;
  RichEdit1.SelStart := Pos;
  RichEdit1.SelText := 'normal ';

  Pos := Pos+Length('normal ');
  RichEdit1.SelStart := Pos;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.SelText := 'fett ';

  Pos := Pos+Length('fett ');
  RichEdit1.SelStart := Pos;
  RichEdit1.SelAttributes.Style := [];
  RichEdit1.SelText := 'wieder normal '+#13#10;//neue Zeile
  //...					

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

    procedure AddStyledText(s:string; style:TFontStyles; var aRtf:TRichEdit);
    begin
      artf.SelStart := strlen(pchar(artf.text));
      artf.SelAttributes.Style := style;
      artf.SelText := s;
    end;					

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

    procedure AddColoredText(s:string; c:TColor; var aRtf:TRichEdit);
    begin
      artf.SelStart := strlen(pchar(artf.text));
      artf.SelAttributes.Color := c;
      artf.SelText := s;
    end;					

1:
2:
3:

    AddStyledText('normal,',[],Form1.Richedit1);
    AddStyledText('fett,',[fsbold],Form1.Richedit1);
    AddStyledText('kursiv',[fsItalic],Form1.Richedit1);					

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

procedure UnderlineText(s:string; var aRtf:TRichedit);
  function WhereStrInStr(s:string;z:string):integer;
  var i:integer;
  begin
    WhereStrInStr:=0;
    for i:=1 to StrLen(PChar(s)) do
    begin
      if z=MidStr(s,i,StrLen(PChar(z))) then
      begin
        WhereStrInStr:=i;
        Exit;
      end;
    end;
  end;
begin
  aRtf.SelStart:=WhereStrInStr(aRtf.Text,s)-1;
  aRtf.SelLength:=StrLen(PChar(s));
  aRtf.SelAttributes.Style := [fsUnderline];
end;					

1:
2:

Richedit1.Text:='Hallo ich bin ein unterstrichener Text';
UnderlineText('unterstrichener', Richedit1);					

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

procedure RTFUnderLine(s: String;RE: TRichEdit);
begin
  with RE do
    begin
    SelStart := Pos(s,Text)-1;
    SelLength := Length(s);
    with SelAttributes do
      Style := Style + [fsUnderline];
    end;
end;