Listview'in ListViewCustomDrawSubItem olayına...
 
begin
  if SubItem = 0 then  Exit;
 if  Pos('E', Item.SubItems[2]) > 0 then  begin
 
    ListView1.Canvas.Font.Color := $00191919;
    ListView1.Canvas.Font.Style := [fsbold];
 
end; end;