Запись Blob в БД

   var
   cString: string;
   oMemory: TMemoryStream;
   Buffer: PChar;
   BLOBField: TBlobField;
begin
   datModule.ibTransaction.DefaultDatabase := datModule.ibDataBase;
   datModule.ibQuery.Database              := datModule.ibDataBase;
   datModule.ibQuery.Transaction           := datModule.ibTransaction;
   datModule.dataSourse.DataSet            := datModule.ibQuery;
   datModule.ibQuery.Close;
   datModule.ibQuery.SQL.Clear;
   datModule.ibQuery.SQL.Text := 'INSERT INTO USER_TEMPLATE (ID, NAME, FILE) VALUES (3, :name, :rtfFile)';
   datModule.ibDataBase.Open;
   datModule.ibTransaction.StartTransaction;
   datModule.ibQuery.Params.ParamByName('name').Value := 'Privet';
 
   cString := 'Привет';
   oMemory := TMemoryStream.Create;
   StrPCopy(Buffer, cString);
   oMemory.Write(Buffer[0], StrLen(Buffer));
   datModule.ibQuery.Params.ParamByName('rtfFile').LoadFromStream(oMemory, ftBlob);
   
   datModule.ibTransaction.Active := True;
   datModule.ibQuery.ExecSQL;
 
   oMemory.Free;
end;