Guardar un Variant en Firebird

[rodrinig]

Si casimiro , lo debo haber abierto mal a el Tema. Te paso a explicar, esto es para guardar en una base Firebird, el resultado de una lectura de una huella dactilar. Baje unos ejemplos de Digital Personal ( es para un aparato UareU4500), y la lectura la hace barbaro, y guardar (creo) que tambien. Trabajo en Delphi7

Aca graba la lectura en la base:

Código Delphi [-]
  var
    l_interface : IDispatch;
    outFile : File;
    vrnt : Variant;   //used to store the serialized template
    vt : integer ;
    vtByteBuf : PByteArray;  //Reference to the raw data array in the variant
    aryLow : integer;
    aryHigh : integer;
    rawDataSize: integer;
    loopIndex : integer;
begin
......
 ......
   vrnt:=FPTemplate.Serialize;  //esta funcion me lo transforma a un Variant
              aryLow:=VarArrayLowBound(vrnt,1);
              aryHigh:=varArrayHighBound(vrnt,1);
              aryHigh:=aryHigh-aryLow;
              showmessage(inttostr(aryHigh));
              vtByteBuf:=VarArrayLock(vrnt);  //lock down the array

              for loopIndex := 0 to aryHigh - 1 do
                     fpData[loopIndex]:=vtByteBuf[loopIndex];

              VarArrayUnlock(vrnt);
              MS := TMemoryStream.Create; { creates stream }
              MS.WriteBuffer(fpData, aryHigh); { writes stream }

              if not dm.cds.Active then
                 dm.cds.open;
              dm.cds.Append;
              dm.cdsAA_CODIGO.AsInteger := 0;
              dm.cdsAA_NOMBRE.AsString  := self.Edit1.Text;
              dm.cdsAA_HUELLA.LoadFromStream(MS);
              dm.cds.Post;
              dm.cds.ApplyUpdates(0);

el tema es cuando quiero sacar de la base la huella y pasarla a un Variant asi
comparo las huellas.

Espero que me puedas ayudar, una ver terminado subo todo el codigo al foro

Gracias

Rodrigo