// Add all image formats that image can save to var i: Integer; fmt: TIEFileFormatInfo; begin for i := 0 to IEGlobalSettings().FileFormatCount - 1 do begin fmt := IEGlobalSettings().FileFormat[i]; if @fmt.WriteFunction <> nil then // Can save? cmbFormat.Items.Add( fmt.FullName + ' (' + fmt.Extensions + ')' ); end; cmbFormat.ItemIndex := 0; end;