Reference StrToImageFormat

Convert a file name or extension to an image format, defaulting to png

function StrToImageFormat(S: string): TImageFormat;