Problem mit Vst spalte färben

[youuu]

Hi,

Ich möchte bei einem besimmten Wert die Column einfärben in der, der Wert steht:

Ich dachte mir ich mach es so

Delphi-Quellcode:

procedure TFormKunden.VstPositionenGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
Var
  CustomerPos: TCustomerPositionen;
begin
  CustomerPos:= TCustomerPositionen(VstPositionen.GetNodeData(node)^ );
  case Column of
    0: Celltext:= CustomerPos.name;
    1: CellText:= IntToStr(CustomerPos.volume);
    2: CellText:= FloatToStr(CustomerPos.price);
    3: CellText:= FloatToStr(CustomerPos.price * CustomerPos.volume);
    4: If CustomerPos.status = 'aktive' Then
       Begin
         Color:= ClGreen;
         CellText:= CustomerPos.status;
       End
       Else
       Begin
         Color:= ClRed;
         CellText:= CustomerPos.status;
       End;
  end;
end;

Jedoch färbt er dabei leider nichts ein.