типа пример :)

var sheetBlob,
sheetSize : integer;
bs : tBlobStream;
// copy from table to spread sheet
sheetSize := tBlobField (srcTable.FieldByName ('Package
Formula')).BlobSize;
if sheetSize > 0
then begin
sheetBlob := GlobalAlloc (GHND, sheetSize);
try
bs := tBlobStream.Create (tBlobField
(srcTable.FieldByName ('Package Formula')), bmRead);
sheetPointer := GlobalLock (sheetBlob);
try
bs.Read (sheetPointer^, sheetSize);
finally
GlobalUnlock (sheetBlob);
bs.Free;
end;
f1Book1.ReadFromBlob (sheetBlob, 0);
finally
GlobalFree (sheetBlob);
end;
end;
// copy from spread sheet to table
srcTable.Edit;
bs := tBlobStream.Create (tBlobField (srcTable.FieldByName ('Package
Formula')), bmWrite);
sheetBlob := GlobalAlloc (GHND, 2048);
sheetSize := 2048;
try
f1Book1.WriteToBlob (sheetBlob, 0);
sheetPointer := GlobalLock (sheetBlob);
try
sheetSize := GlobalSize (sheetBlob);
bs.Write (sheetPointer^, sheetSize);
finally
GlobalUnlock (sheetBlob);
end;
finally
bs.Free;
GlobalFree (sheetBlob);
end;