Пардон, проблема решена самостоятельно. Покопался в модуле Graphics и скомбинировал функцию проверки:
Код:
function IsBitmap(const FileName: string): boolean;
var Bmf: TBitmapFileHeader;
S: TStream;
begin
S:=TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
S.ReadBuffer(Bmf, SizeOf(Bmf));
Result:=Bmf.bfType = $4D42;
S.Free;
end;