delphi listbox и scrollbar

[dol]

Здравствуйте.
У меня есть listbox в котором имеется 10 строк и scrollbar с минимальным значением 5 и максимальным 10.
Как мне сделать, чтобы передвигая ползунок изменялось количество строк?

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
z:integer;
begin
ScrollBar1.Position:=z;
z:=ListBox1.Items.Count;
end;

[min@y™]

[dol]

Спасибо большое, очень помогло!