Eliminar la barra de seleccion de un ListBox

[gulder]

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

[[cHackAll]]

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

[gulder]

HOMBRE cHackAll gracias men saludos