اخي الكريم ببساطة
في حال ادخال اسم في Edit والضغط على Button يقوم بتلوين Subitem3 الذي وجده في Listview باللون الاحمر
فقط هكذا
في الحدث AdvancedCustomDrawSubItem
ضع
كود :
if SubItem = 3 then
if Item.SubItems[2] = 'delphi4arab' then
begin
Sender.Canvas.Font.Color := clRed;
end;
مرفق مثال أيضا