//---------- Procedure  Select
  StoredProc.Close;
  StoredProc.PackageName := 'PacName';
  StoredProc.StoredProcName := 'ProName';
  StoredProc.Prepare;
  StoredProc.ParamByName('field1').AsString :=  memo1.Text;
  StoredProc.ParamByName('field1').AsString :=  Edit1.Text;
  StoredProc.ParamByName('field1').AsString :=  Combobox1.EditingValue;
  StoredProc.Open;

  Memtable1.CopyDataSet(StoredProc, [coAppend]);  //Copy Memtable1

//---------- Procedure  Insert, Update, Delete
  var
    sMemTable  : string;

  StoredProc.Close;
  StoredProc.PackageName := 'PacName';
  StoredProc.StoredProcName := 'ProName';
  StoredProc.Prepare;
  StoredProc.ParamByName('P_DATASET').Value   := sMemTable;     //CLOB type
  StoredProc.ParamByName('field1').AsString   := FormatDateTime('yyyymmdd',Date.CurrentDate);
  StoredProc.ParamByName('field1').AsString   := Edit1.Text;
  StoredProc6.ExecProc;

//---------- Function
  var
    GetStr : String;

  StoredProc.Close;
  StoredProc.PackageName := 'PacName';
  StoredProc.StoredProcName := 'ProName';
  StoredProc.Prepare;
  StoredProc.ParamByName('field1').AsString  := stringreplace(Date.Text,'-','',[rfReplaceAll]);
  StoredProc.ParamByName('field1').AsString := Edit1.Text;
  GetStr := StoredProc.ExecFunc;