如何确定Tpicture是否包含Jpeg？

Question

我正在使用delphi7/2009.如何确定Tpicture的内容？jpeg bmp png等？

Answer 1

   if Picture.Graphic is TJPegImage then
     ShowMessage('JPEG')
   else if Picture.Graphic is TBitmap then
     ShowMessage('Bitmap');
//etc