Descobrir o formato de imagem armazenada em um TImage

Olha eu d novo. :)

To querendo saber se tem como eu descobrir o formato da imagem armazenada em um TImage ou num Blob, Stream, Clipboard para que eu possa fazer uma função que salve-a em disco com a extensão correta.

[b:01dbe2c1c5]Ex:[/b:01dbe2c1c5] JPEG - imagem.jpg
BitMap - imagem.bmp
Gif - imagem.gif
Icone - imagem.ico
etc.

Agradeço-lhes desde já pela atenção :wink: