[rastafarey]

Mira no recuerdo el tipo se escribe exactamente asi no tengo delphi ala mano para probar

Código Delphi [-]
var
   b : tblobfield;
   m: TMemoryStream;
begin
   b := tblobfield.create(self);
   m := TMemoryStrean.create;
   try
     Image.SaveTostrean(M);
     B.LoaddFromStrean(M);  
   Finally 
     m.Free;
   End; 
   Query.FieldByname('Campo') := B; 
End;

No es seguro que este codigo funcione perfecto como ya lo dije antes no tengo delphi a la mano.