[Vasuha]

Можно так...
Свойство Style установите в lbOwnerDrawFixed

Код:

	with  ListBox1.Canvas do
	begin

    if index mod 2 = 0 then begin
		Brush.Color:=clGreen;
		Font.Color:=clWhite;
		FillRect(Rect);
		TextOut(Rect.Left+2,Rect.Top+2, ListBox1.Items.Strings[index]);
	end else
        begin
            Brush.Color:=clWhite;
    		Font.Color:=clBlack;
	    	FillRect(Rect);
    		TextOut(Rect.Left+2,Rect.Top+2, ListBox1.Items.Strings[index]);
        end;
    end;