procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);  
begin                  
with (Control as TListBox).Canvas do    
begin                        
//далее можно задать наше условие для цвета отдельных строк    
if Index=3 then            
begin  
Font.Color := clRed; //здесь любой ваш цвет. Можно и другие параметры шрифта задать, например, Bold...        
Font.Style:=Font.Style+[fsBold];
Brush.Color:=clYellow;
end;  
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);  
end;

end;