Как определить, если 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

Answer 2

if (APicture.Graphic is TBitmap) then
result := true 
else 
result := false;

// заменить TBitmap на другой формат //