documento excel en blob de Firebird con automation

[apicito]

Aclaro que de lo que se trata es de grabar un fichero xls en un campo blob, como se hece con un richedit o un jpg. Por ejemplo, si abro un xls asi:

Excel := CreateOleObject('Excel.Application');
Archivo := 'c:\tmp\Hola.xls';
Excel.Workbooks.Open(Archivo);
excel.visible:=true;

como podría pasar el xls al campo blob. He probado:

Query.FieldByName('CAMPO_BLOB').AsVariant:=Excel.workbooks;

me da error de tipo de variable.
¿Alguna idea?