Ich versuche es mal, allerdings nur rein aus dem Kopf, also untestet:
Beim Anlegen der einzelnen Objekte würde ich das Ja/Nein einfach in ein SubItem schreiben:
Delphi-Quellcode:
ListItem := lvEDV.Items.Add;
ListItem.Caption := NewString;
ListItem.SubItems.Add(OracleDataSet1.Fields.Fields[2].AsString);
Und beim Zeichen müsste es dann so aussehen:
Delphi-Quellcode:
procedure TfrmMain.lvEDVCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (Item.SubItems[0]='JA') Sender.Canvas.Brush.Color:=clLime
else Sender.Canvas.Brush.Color:=clRed;
end;