Function DocToBLOB(ID: Integer; FileName: String): Boolean;
Begin
  Result := False;
  With OraQuery1 Do Begin
    SQL.Clear;
    SQL.Add('UPDATE DOCS_DETAIL set FILEDATA = EMPTY_BLOB() WHERE ID = :Id RETURNING FILEDATA INTO :FILEDATA');
    Prepare;
    Try
      Try
        Params[ 0 ].AsInteger := ID;
        TOraParam(Params[ 1 ]).ParamType := ptInput;
        TOraParam(Params[ 1 ]).AsBLOBLocator.LoadFromFile(FileName);
        Execute;
        Result := True;
      Finally //UnPrepareQuery;
      End;
    Except On e: Exception Do ShowMessage(E.Message);
    End;
  End;
End;