IfxConnection1.Open;
  IfxQuery1.SQL.Text := 'create table teb(a integer, b byte)';
  IfxQuery1.ExecSQL;
// вставка
  IfxQuery1.SQL.Text := 'insert into teb (a, b) values (1, :bl)';
  IfxQuery1.Params[ 0 ].LoadFromFile('c:\ntldr', ftblob);
  IfxQuery1.ExecSQL;
// обновление
  IfxQuery1.SQL.Text := 'update teb set b = :bl where a = 1';
  IfxQuery1.Params[ 0 ].LoadFromFile('c:\ntldr', ftBlob);
  IfxQuery1.ExecSQL;

uses
  , IfxLob, IfxLocator;
var
  ibl: iIfxLob;
begin
  IfxSQL1.SQL.Text := 'create table teb(a integer, b blob)';
  IfxSQL1.Execute;

// создаем smartblob, загружаем в базу, получаем локатор на него
  ibl := TIfxLob.Create(IfxConnection1);
  ibl.LoadFromFile('c:\ntldr', LO_CLIENT_FILE);

// вставляем локатор
  IfxSQL1.SQL.Text := 'insert into teb (a, b) values (1, :bl)';
  IfxSQL1.Params[ 0 ].AsBlob := ibl;
  IfxSQL1.Execute;

// изменение smartblob, выбираем локатор
  IfxSQL1.SQL.Text := 'select b from teb where a = 1';
  IfxSQL1.Open;
  ibl := IfxSQL1.Fields[ 0 ].AsBlob;
  IfxSQL1.Close;

// открываем на запись/чтение, пишем , сохраняем
  ibl.Open(LO_RDWR);
  ibl.LoadFromFile('c:\ntldr', LO_CLIENT_FILE);
  ibl.Close;

var
  ibl: iIfxLob;

begin
  IfxSQL1.SQL.Text := 'create table teb(a integer, b blob)';
  IfxSQL1.Execute;

  IfxSQL1.SQL.Text := 'CREATE PROCEDURE myproc(pbData BLOB) insert into teb (a,b) values (1, pbData); end PROCEDURE;';
  IfxSQL1.Execute;

  ibl := TIfxLob.Create(IfxConnection1);
  ibl.LoadFromFile('c:\trace.ini', LO_CLIENT_FILE);

  IfxSQL1.SQL.Text := 'execute procedure myproc(:bdata)';
  IfxSQL1.Params[ 0 ].AsBlob := ibl;
  IfxSQL1.Execute;