type TBuffer = packed record  
  values:array of array[ 0 .. 1 ] of word;  
  DTime:TdateTime;
end;

 //-----------------------
 
var i, cnt:integer;
 arrStream:TMemoryStreAm;

 Save_Buffer:TBuffer;
 //-----------------------
 

 if SizeOf(save_buffer) >  0  then
 begin
   arrStream:= TMemoryStream.Create;
   arrStream.Clear;
   arrStream.Position :=  0 ;
   arrStream.Write(save_buffer,SizeOf(save_buffer));
   arrStream.Position :=  0 ;
   with IBTable do
   begin
     Active:=true;
     insert;
     (fieldbyname('VALUE') as TBlobField).LoadFromStream(ArrStream);
     post;
     Active:=false;
   end;
   IBtable.ApplyUpdates;
   arrStream.free;
 end;
//-----------------------

CREATE TABLE LIVE ( "VALUE"  BLOB SUB_TYPE  0  SEGMENT SIZE  80 );