Q.   How can I get a horizontal scrollbar on a list box?

A.   There isn't a property to do this but a message can be sent to a
     listbox component.  For example, the message could be sebt in the
     form's OnActivate:

 procedure TForm1.FormActivate(Sender: TObject);
 begin
  SendMessage(Listbox1.Handle, LB_SetHorizontalExtent,
              1000, Longint(0));
 end;