Eliminar la barra de seleccion de un ListBox
 

hola foro como andan miran tengo esta pregunta como hago para eliminar la barra de seleccion de un ListBox meren esta imagen para que se hagan una idea de lo que quiero hacer:

http://img.tomatone.net/big/litos.JPG

gracias de antemano gulder salu2

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
const Colors: array [Boolean] of Cardinal = (clWhite, clSilver);
begin
 with (Control as TListBox).Canvas do
  begin
   Brush.Color := Colors[odSelected in State]; FillRect(Rect);
   TextOut(4, Rect.Top, (Control as TListBox).Items[Index]);
  end;
end;

// Style = lbOwnerDrawFixed

HOMBRE cHackAll gracias men saludos