procedure THITWAIN.Init;
begin
  if Bmp = nil then begin
    Bmp := NewBitmap(0,0);
    CallDSM(nil, DG_CONTROL, DAT_IDENTITY, MSG_GETDEFAULT, @DS_ID);
  end;
end;

        if (sz>0) and (pmem<>nil) then begin
          stm := NewMemoryStream;
          stm.Write(pmem^, sz);
          stm.Position := 0;
          bmp.Clear; // не стоит ли добавить
          bmp.LoadFromStreamEx(stm);
          stm.Free;
        end;