ParamByName('w').Value := DataModule1.OFFICE_CONTACTS.FieldByName('OC_O_ID').AsString; ShowMessage(ParamByName('w').Value); Transaction.StartTransaction;