Как определить, содержат ли Tpicture Jpeg?

Question

Я использую delphi7/2009. как определить содержание Tpicture? jpeg bmp png и т. д.?

Answer 1

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

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

Answer 2

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