Не помещаются все изображения на панели Delphi7

[Dalagardi]

На панель выводится n-количество картинок, по длине фиксированное количество-6, а вниз не фиксировано, т.е. если картинок слишком много они просто исчезают. Есть какой нибудь компонент для прокрутки? И как конкретно связать этот компонент с панелью.

Код заполнения панели картинками

procedure TForm1.N2Click(Sender: TObject);
var TI:integer;
    LI:Integer;
    SP:Boolean;
begin

if form1.OpenpictureDialog1.Execute=true then
begin

getmem(p,sizeof(Timage)*openpicturedialog1.Files.Count);
setlength(DinP,openpicturedialog1.Files.Count);
LI:=-1;
TI:=0;
for i:=0 to openpicturedialog1.Files.Count-1 do
begin
inc(LI);
dinp[i]:=Timage.Create(panel1);
dinp[i].Stretch:=true;
dinp[i].Parent:=panel1;
dinp[i].Picture.loadfromfile(form1.OpenpictureDialog1.Files.strings[i]);
dinp[i].Height:=150;
dinp[i].Width:=150;
dinp[i].Left:=LI*170;
if sp=true then dinp[i].Top:=TI*170;
if (i mod 6 =0) and (i<>0) then
begin
dinp[i].Left:=0;
inc(TI);
dinp[i].Top:=TI*170;
LI:=0;
SP:=true;
end;
dinp[i].Tag:=i;

end;
end;

[evg_m]

либо panel.heght:=panel.heght+100; //или сколько надо чтобы все помещалось
дибо Scrollbox и scrollbox.heght:=... смотри выше (хотя здесь имя свойства может быть другим надо смотреть F1)

[Dalagardi]

Проблема в том что пользователь может выбрать 1000 картинок, я же не смогу такую панель сделать) Вот токая не знаю как связать панель и скролбар

[evg_m]

берем форму
кладем scrollBox
на scrollbox кладем panel
для пенели делаем panel.heght:=сколько надо (больше чем scrollbox.heght)
смотрим что получилось

[Dalagardi]

evg_m ты заставил меня почувствовать себя идиотом) всё было так просто, тока я вспомнить этого не мог, хотя раньше знал) огромное спасибо за помощь