Resim listeleme

[masteryoda]

uses a jpeg ekle
sonra forma birtane flowpanel
örnek kod

procedure TForm1.Button1Click(Sender: TObject);
var
 Resim: TImage;
 i: Integer;
begin
 for i := 0 to 9 do
 begin
   Resim := TImage.Create(Self);
   Resim.Parent := FlowPanel1;
   Resim.Height := 150;
   Resim.Width := 150;
   Resim.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'\resim\resim'+IntToStr(i)+'.jpg');
   Resim.Stretch:=True;
 end;
end;