1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button1Click(Sender: TObject);  
var  
  ListItem: TListItem;  
begin  
  ListItem := ListView1.Items.Add;  
  ListItem.Caption := 'Rot';  
  ListItem.Data := Pointer(clRed);  
end;  

 
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;  
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);  
begin  
  with Sender.Canvas.Font do begin  
    Style := [fsBold];  
    Color := TColor(Item.Data);  
  end;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

type
  PMyFont = ^TMyFont.
  TMyFont = record
    Style: TFontStyles;
    Color: TColor;
  end;

procedure TForm1.Button1Click(Sender: TObject);  
var  
  ListItem: TListItem;
  MyFont: PMyFont;
begin  
  ListItem := ListView1.Items.Add;
  ListItem.Caption := 'Rot';
  New(MyFont);
  with MyFont^ do begin
    Style := [fsBold]; 
    Color := clGreen;
  end; 
  ListItem.Data := MyFont;
end;  

 
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;  
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);  
begin  
  with Sender.Canvas.Font do begin  
    Style := PMyFont(Item.Data)^.Style;  
    Color := PMyFont(Item.Data)^.Color;
  end;  
end;