Informacje o obrazie

Jak odczytać z plików BMP i JPEG informacje o rozdzielczości i głębi kolorów.

Wydaje mi się, że to już było poruszane, ale przekopałem całe forum i nie znalazłem.

np tak:

FUNCTION GetPixelFormatString(CONST PixelFormat:  TPixelFormat):  STRING;
    VAR
      Format:  STRING;
  BEGIN
    CASE PixelFormat OF
      pfDevice:  Format := 'Device';
      pf1bit:    Format := '1 bit';
      pf4bit:    Format := '4 bit';
      pf8bit:    Format := '8 bit';
      pf15bit:   Format := '15 bit';
      pf16bit:   Format := '16 bit';
      pf24bit:   Format := '24 bit';
      pf32bit:   Format := '32 bit'
      ELSE
        Format := 'Unknown';
    END;
    RESULT := Format;
  END;

...
edit7.Text:=GetPixelFormatString(image1.Picture.Bitmap.PixelFormat);
...