aktuelle Zeile in SynEdit einfärben

[torud]

Folgendes habe ich nun bei mir getan, um dem, was ich will nahe zu kommen:

Delphi-Quellcode:

procedure TfrmMAIN.SynEdit1SpecialLineColors(Sender: TObject; 
  Line: Integer; var Special: Boolean; var FG, BG: TColor); 
var
 i:integer;
begin 
  Special := true; 
     for i:= 1 to SynEdit1.Lines.Count -1 do
       begin
         if Line = SynEdit1.CaretY then
           begin bg:=clgreen; end
         else
           begin gb:=clwhite; end;
       end;
end;

Es funktionier solange gut, wie ich nur die Entertaste und Backspace zum Einsatz bringe. Sobald ich aber per Mouse, oder Pfeil hoch und runter die aktuelle Zeile Verlasse, wird sie nicht neu gezeichnet und somit gibts auch nicht den Effekt, wie ich ihn gern hätte.

Wie komme ich nun endgültig zum Ziel?
Nochmals vielen Dank für die Unterstützung.

Tom