procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var c: TCanvas;
begin
  c := ListBox1.Canvas;
  if not (odSelected in State) then begin
    c.Brush.Color := clWhite;
    c.Font.Color := clBlack;
  end else begin
    c.Brush.Color := clBlack;
    c.Font.Color := clRed;
  end;
  c.FillRect(Rect);
  c.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;