procedure TfrmEditProduct.btnSaveAllClick(Sender: TObject);
const
   Insert_SQL_TEXT =
      'insert into BRSPRINTFORMS (formcode, Startdate, Regformid) '#13#10 +
      'select :FFormCode, b.Startdate, b.Regformid from BRSPRINTFORMS b '#13#10 +
      'where regformid = ''92101'' '#13#10 +
      'and rownum = 1';
var Proc: TOraStoredProc;
    FFormCode : string;
    Query : TOraQuery;
begin
//  Proc := CreateOraStoredProc(AnsiUpperCase('pkgeditproduct.DeleteCondPutPartRef'));
  FFormCode :=(GetFieldValueFromSql('formcode','select max(formcode) + 1 as formcode  from BRSContrKind2PrintForms',''));
 // Proc.ParamByName('aformcode').Text := FFormCode;

  Query:=FQI.CreateQuery;

  Query.Close;
  Query.SQL.Text:=Insert_SQL_TEXT;
  Query.Prepare;
  Query.ExecSQL;
end.

  Query.Close;
  Query.SQL.Text:=Insert_SQL_TEXT;
  Query.ParamByName('aFormCode').Text := FFormCode;
  Query.Prepare;
  Query.ExecSQL;