Canvas.Textout Farbe ändern Problem

[Brainstalker]

Ich hab jetzt noch einige Tests gemacht, aber ich kam immer noch nicht zum gewünschten Effekt. Sobald einmal TextOut aufgerufen wurde kann ich die Schriftfarbe nicht mehr ändern.
Das ist jetzt mein Code:

Delphi-Quellcode:

procedure TMainFrm.SkillBoxCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  aIconRect, aTextRect:TRect;
  ItemCaption: string;
  ItemType: string;
begin
  DefaultDraw := false;

  Sender.Canvas.Font.Color := clGreen;
  Sender.Canvas.TextOut(50,50,'Bla');
  Sender.Canvas.Font.Color := clBlack;
  Sender.Canvas.TextOut(50,70,'Bla');
end;

Allerdings werden beide Grün dargestellt.

EDIT:

Hab gerade rausgefunden, das es so bei OnCustomDrawItem ist, pack ich den gleichen Code ind OnCustomDraw funktioniert es.