دادن ScrollBars به List box

[Mask]

با سلام.
شرمنده اگه سوالم تکراریه. براش جواب پیدا نکردم.
چطوری برا ListBox یه ScrollBars ایجاد کنیم.
ممنون.

[Felony]

procedure HorScrollBar(ListBox: TListBox; MaxWidth: Integer);
var
i, w: Integer;
begin
if MaxWidth = 0 then
SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0)
else
begin
for i := 0 to ListBox.Items.Count - 1 do
with ListBox do
begin
w := Canvas.TextWidth(Items[i]);
if w > MaxWidth then
MaxWidth := w;
end;
SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT,
MaxWidth + GetSystemMetrics(SM_CXFRAME), 0);
end;
end;

[Mask]

ممنون حاجی
چرا باید براش روال نوشت.؟
و در مورد کدت یه توضیح میدی؟