When using FillFromDirectory try setting the captions in BeforeImageDraw:
procedure TForm1.ImageEnMView1BeforeImageDraw(Sender: TObject; idx, Left,
Top: Integer; Canvas: TCanvas);
begin
ImageEnMView1.ImageTopText[idx].Caption := 'Image ' + inttostr(idx);
ImageEnMView1.ImageInfoText[idx].Caption := inttostr
(ImageEnMView1.ImageOriginalWidth[idx]) + ' x ' + inttostr
(ImageEnMView1.ImageOriginalWidth[idx]);
end;
When you set the captions right after calling FillFromDirectory not all of the images are loaded yet.
William Miller