Usa la propiedad ScrollWidth del list box. ScrollWidth es algo así como el ancho virtual del control de manera que si, por ejemplo, pones
ListBox.ScrollWidth := 1000;
aparecerá la barra y te permitirá desplazarte como si el contenido del control ocupase 1000 pixeles de ancho.
Fíjate que esto tiene entonces un problema: si el ítem de mayor longitud en el list box mide más de 1000 pixeles de ancho, seguirás sin poder ver todo. Y si mide menos, digamos 500 pixeles, te estarás desplazando por una franja vacía de 500 pixeles.
Por esto, lo ideal sería ajustar ScrollWidth a la mayor longitud (ni más ni menos) de los ítemes en el list box. Desafortunadamente, si tu list box contiene muchos elementos, esto puede ser un poco lento de calcular, aunque, por otro lado, un list box con muchos ítemes es de cualquier forma lento.
Para calcular el máximo ancho podrías usar esta función:
Código Delphi
[-]
function MaxItemWidth(ListBox: TListBox): Integer;
var
W, I: Integer;
begin
Result := 0;
for I := 0 to Pred(ListBox.Count) do
begin
W := ListBox.Canvas.TextWidth(ListBox.Items[i]);
if W > Result then Result := W;
end;
Inc(Result, 6);
end;
// Saludos