Listbox mit Bildlaufleiste erstellen?

[craash]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
     for i:=1 to 20 do
         begin
         listbox1.Items.Append('hallo');
         end;
end;

sobald mehr einträge in der listbox sind als angezeigt werden können, entsteht am rechten rand eine scrollbar.
war es nicht das was du meintest?


/edit: ah mist wenn ich nochmal drüberles meinst du eine vertikale scrollbar oder?
dann entschuldige ich mich^^. das problem hatte ich mal in vb und musste am ende eben die listbox vergrößern