[NumLock]

создать:

Код:

var
  i: Integer;
  img: TImage;
begin
  for i:=0 to 24 do
  begin
    img:=TImage.Create(ScrollBox1);
    img.Parent:=ScrollBox1;
    img.Picture.LoadFromFile('d:\Картинки\Разное\apple.bmp');
    img.AutoSize:=True;
    img.Left:=(i mod 4)*img.Width;
    img.Top:=(i div 4)*img.Height;
  end;
end;

удалить:

Код:

var
  i: Integer;
begin
  for i:=ScrollBox1.ComponentCount-1 downto 0 do
    if ScrollBox1.Components[i] is TImage then
      TImage(ScrollBox1.Components[i]).Free;
end;