تلوين item في listbox... كيف ؟

[AL-MOB4RM3G]

نعم بارك الله فيك اخي الكريم...
لكن اخي... هل ممكن اضافة خاصية تلوين item موجود مسبقاّ ؟
بارك الله فيك...

وثايناّ....
حيّرني هذا الكود...

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
begin
    case (Sender as TButton).Tag of
     0:
      begin
       SlI.Add(edt1.Text); SlC.Add('255');
      end;
     1:
      begin
       SlI.Add(edt1.Text); SlC.Add('16711680');
      end;
     2:
      begin
       SlI.Add(edt1.Text); SlC.Add('32768');
      end;
    end;
  AddItems();
end; 


ما هو الواحد و 2 و الصفر ؟
وثانياّ

كيف فعلت بارك الله لك حتى تستخدم نفس الكود عندما تضغط على
btn 1 او btn2 او btn3 بارك الله لك...

شكرا لك كثيرا اخي