Canvas.Textout Farbe ändern Problem

[Brainstalker]

Hi,

ich hab gerade ein Problem. Ich will mit Textout Farbigen Text in einem TListView ausgeben.

Code:

Canvas.TextOut(aTextRect.Left, aTextRect.Top, ItemCaption);

  if ItemType = 'Passiv' then
    Canvas.Font.Color := clBlue
  else
    Canvas.Font.Color := clRed;

  aTextRect.Top := aTextRect.Top + 14;
  Canvas.TextOut(aTextRect.Left, aTextRect.Top, ItemType);

Mein Problem ist, das der Text immer in schwarz ausgegeben wird. Wenn ich das Font.Color Property vor dem ersten Textout setze, wird die richtige Farbe gesetzt. Allerdings dann für den gesamten nachfolgenden Text.
Wieso wird Font.Color nach dem ersten Aufruf von TextOut nicht berücksichtigt?