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

procedure HighLight(zeile: integer; farbe: TColor; edit: TRichEdit);
var Start, Ende, OldSelStart:integer;
begin
zeile:= zeile-1;                            //damit Zeile 1 auch Zeile 1 ist
OldSelStart:= edit.SelStart;                //um später wieder zurückzugehen
Start:= Pos(edit.Lines[zeile],edit.text) -1;//Anfang der Zeile
Ende:= Length(edit.Lines[zeile]);           //Ende der Zeile

edit.SelStart:= Start;                      //ANFANG Setzen
edit.SelLength:=Ende;                       //Bis wohin
edit.SelAttributes.Color:= farbe;           //Färben

edit.SelLength:=0;                         //wieder-
edit.SelStart:= OldSelStart;               //herstellen
edit.SetFocus;                             //des Normals


end;					

1:

HighLight(2,clBlue,RichEdit1);					

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

procedure RichEdit_SelectLine(RichEdit: TRichEdit; LineNr: Word);
begin
  with Richedit do begin
    if (LineNr = 0) or (LineNr > Lines.Count) then begin
      SetFocus;
      Exit;
    end;
    LineNr := LineNr - 1;

    SelStart := Perform(EM_LINEINDEX, LineNr, 0); //CursorPosition setzen
    SelLength := Length(Lines[LineNr]); //Länge festlegen
    SetFocus;
    //Application.ProcessMessages; //Individuell einsätzen
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  RichEdit_SelectLine(RichEdit1, 1);
end;					

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

 begin
  if k.line[1] <> '' then begin
     RichEdit_SelectLine(m, 1);
     m.Lines[0]:=k.line[1];
  end;
  if k.line[2] <> '' then begin
     RichEdit_SelectLine(m, 2);
     m.Lines[1]:=k.line[2];
  end;
  if k.line[3] <> '' then begin
    RichEdit_SelectLine(m, 3);
    m.Lines[2]:=k.line[3];
  end;