Ændre highlightcolor på en listbox

hvis du vil ændre farven på listbox når mus er over:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
edit1.Color:= clwhite;
end;

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  edit1.Color:= clred;
end;

det er ikke helt det jeg er ude efter.
det er en Tlistbox hvor jeg gerne vil have ændret farven når et item er selectede

Sæt Style til lbOwnerDrawFixed på din listbox

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in State then
  ListBox1.Canvas.Brush.Color := clred;
ListBox1.Canvas.FillRect(Rect);
ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;

Stoney

sorry er vist træt....afvis mit sp.