1:
2:

SpecialLineColors(Sender: TObject; Line: Integer;
  var Special: Boolean; var FG, BG: TColor);					

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

procedure TForm1.SynMemo1SpecialLineColors(Sender: TObject; Line: Integer; var Special: Boolean; var FG, BG: TColor);
begin
   //Das Event wird für jede Zeile abgerufen, also Line abfragen
   if (Line=2) then
   begin
        //Special True oder False legt fest ob trotz Farbe der Highlighter genutzt werden soll
        Special:=FALSE;
        
        //BG bestimmt die Hintergrundfarbe der Zeile (hier rot), FG die Vordergrundfarbe
        BG:=clRed;
  end;
end;