Try
If PsNombProc = 'ins_dat' Then
With ADOSP1.Parameters Do
Begin
Clear;
CreateParameter('fecha_apert',ftDateTime,pdInput,0,Now);
End;
Except
On Error: Exception Do
Result := 'Ocurrió un error al ejecutar al Crear parámetros. Error: ' +
Error.Message;
End;