Сделать горизонтальную прокрутку в ListBox.

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  maxWidth: integer;
begin
  maxWidth := 0;
  with ListBox1 do
    for i := 0 to Items.Count - 1 do
      if maxWidth < Canvas.TextWidth(Items.Strings[i])
      then maxWidth := Canvas.TextWidth(Items.Strings[i]);
  ListBox1.Perform(LB_SETHORIZONTALEXTENT, maxWidth + 10, 0);
end;