procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
 begin
   with Control as TListBox do
   begin
     Canvas.FillRect(Rect);
     Canvas.Font.Color := TColor(clGreen);
     Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
   end;
 end;

unit MyListBox;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyListBox = class(TListBox)
  private
   { Private declarations }
    FColorText:boolean;
    FCanvas: TControlCanvas;
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
       Rect: TRect; State: TOwnerDrawState);

  protected
  { Protected declarations }
  procedure setColorText(value:boolean);

  public
  { Public declarations }
  constructor  Create (AOwner:TComponent); override;

  published
  { Published declarations }
  property ColorText: boolean read FColorText write setColorText default false;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyListBox]);
end;

constructor  TMyListBox.Create (AOwner:TComponent);
begin
 Inherited Create(AOwner);
  FColorText:=false;
  FCanvas:=TControlCanvas.Create;
  FCanvas.Control:=Self;
end;

 procedure TMyListBox.setColorText (value:boolean);
 begin
   with FCanvas.Control as TListBox do
   begin
     Canvas.FillRect(Rect);
     Canvas.Font.Color := TColor(clGreen);
     Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
   end;
 end;
end.