[dimsog]

Т.е. если item'a из первого листбокса нету во втором листбоксе, то выделить его красным цветом?
Если я правильно понял, то вот простейший код:

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 With ListBox1 do begin
   If Listbox2.Items.IndexOf(Items[index]) = -1 then begin
      Canvas.Font.color := clred;
   end else
      Canvas.Font.Color := clgreen;
   Canvas.TextOut(Rect.Left +1,Rect.Top +1,items[index]);
 end;
end;

ListBox1 - OwnerDrawFixed