// After image has loaded, use EXIF aperture as Info text procedure TForm1.ImageEnMView1ImageLoaded(Sender: TObject; Idx: Integer); var s: string; begin s := ImageEnMView1.MIO.Params[ Idx ].EXIF_ApertureValue2; if s = '' then s := '-'; ImageEnMView1.ImageInfoText[idx] := 'Aperture: ' + s; end;