اود انشآء او التعديل على ال Listbox ؟

[AL-MOB4RM3G]

السلام عليكم,
اخوآني الكرام, هذه محآولة اوليّة,,

PHP كود :

unit AListBox;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TAListBox = class(TListBox)
  private
  FItems : TCollection;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
   Property Items : TCollection Read FItems Write FItems; //
  end;

  TAListBoxItem = class(TCollectionItem)
  private
  FCaption: String;  { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  Property Caption : String Read FCaption Write FCaption;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('AListBox', [TAListBox]);
end;

end. 


الآن ال Items في اليست بوكس تظهر على شكل TCollection ,, لكن لم اعرف كيف اصل ال TCollectionItem بال TCollection ؟ حتى استطيع ان اكتب لكل item كابشن خاص به,, كما في

إضآفة:
وجدت هذا المكون, شئ من هذا هو الذي ابحث عنه وأود عمله (+ خآصيّة الألوآن التي وضعها الأخ هاني) والله المستعان, هذا ديموا فقط,
رآبط, هنا,

http://www.sharemation.com/apkoomeh/Mypage/IListBox.zip