Welche Art von Grafik wurde gespeichert

[NoName1]

Vielen Dank für die Hilfestellung,
wenn ich die function von TiGü einsetze
erhalte ich immer als Extension "bmp" ob wohl eine png-Datei von mir gespeichert wurde.

Delphi-Quellcode:

var
  pExtension: string;
  pMStream: TMemoryStream;
  pAdressID: Int64;
begin
  // MvST -----------------------
  pAdressID := LeseAdressID(1);

  dtmdMain.ibqryEineUnterschrift.Close;
  dtmdMain.ibqryEineUnterschrift.ParamByName('pAdressID').Value := pAdressID;
  dtmdMain.ibqryEineUnterschrift.Open;
  pMStream := TMemoryStream.Create();
  try
    pMStream.Position := 0;
    dtmdMain.ibqryEineUnterschriftUTSCHRIFTBRD.SaveToStream(pMStream);
    pExtension := GetImageFileExtensionFromBlobStream(pMStream);// Code von TiGü
    Showmessage(pExtension); // <<löschen nicht vergessen
  finally
    pMStream.Position := 0;
    pMStream.Free;
    dtmdMain.ibqryEineUnterschrift.Close;
  end;
  // ---------------------------------
  dtmdMain.sqlKopiereUnterschrift.Close;
  dtmdMain.sqlKopiereUnterschrift.ParamByName('pAdressID').Value := pAdressID;
  dtmdMain.sqlKopiereUnterschrift.ExecQuery;
  dtmdMain.sqlKopiereUnterschrift.FieldByName('utschriftbrd').SaveToFile(GlobalPfad + AnmeldeName
    + '\uschrmvst.' + pExtension);
  dtmdMain.sqlKopiereUnterschrift.Close;

Was mache ich falsch?