Problemas con parametro Null en MSSQL Server 2000

[pigu]

Hola querido club!!!
Tengo el siguiente problema: tengo un stored procedure en sqlserver al que le paso parametros desde delphi a traves de dbExpress con un componente SQLDataSet seteado como StoredProc, es decir,

 SQLDataSet.CommandType := ctStoredProc;
 SQLDataSet.CommandText := 'Nombre del Procedimiento';

Lo que esta pasando es que cuando seteo las propiedades de tal parametro para que sea nulo su valor, por las excepciones que he hecho en el stored procedure
que me avisan que hubo un error con los datos procesados, no trabaja como yo quisiera.
Para ser mas claro en el asunto, el mismo procedimiento almacenado esta hecho en interbase 6.0 y cuando seteo otro componente SQLDataSet con conexion Interbase y le asigno al parametro valor nulo, este si me devuelve los datos que espero mostrar en una grilla.
Este es el codigo completo:

procedure TForm1.ejecturar;
begin
  case RadioGroup1.ItemIndex of
	0:
	  begin
		with Interbase do
		begin
		  Close;
		  Prepared := True;
		  ParamByName('id_empresa').AsString := '01';
		  ParamByName('fecha1').AsDate := cxDateEdit1.Date;
		  ParamByName('fecha2').AsDate := cxDateEdit2.Date;
		  ParamByName('nro_base').AsInteger := 0;
		  if ParamByName('id_moneda').IsNull then
		  begin
			ParamByName('id_moneda').DataType := ftInteger;
			ParamByName('id_moneda').Bound := True;
			ParamByName('id_moneda').Clear;
		  end;
		end;
	  end;
	1:
	  begin
		with Mssql do
		begin
		  Close;
		  CommandText := '';
		  CommandType := ctStoredProc;
		  CommandText := 'L_ASIENTOS_D';
		  Prepared := True;
		  ParamByName('id_empresa').AsString := '01';
		  ParamByName('fecha1').AsSQLTimeStamp := DateTimeToSQLTimeStamp(cxDateEdit1.Date);
		  ParamByName('fecha2').AsSQLTimeStamp := DateTimeToSQLTimeStamp(cxDateEdit2.Date);
		  ParamByName('nro_base').AsInteger := 0;
		  if ParamByName('id_moneda').IsNull then
		  begin
			ParamByName('id_moneda').DataType := ftInteger;
			ParamByName('id_moneda').Clear;
			ParamByName('id_moneda').Bound := True;
		  end;
		end;
	  end;
  end;
  ClientDataSet1.Close;
  ClientDataSet1.Open;
end;

Desde ya, muchas gracias a cualquiera que me pueda dar alguna respuesta de lo que estoy haciendo mal.

[pigu]

El problema persiste en delphi 6 ya sea porque tiene un bug dbExpress o por otro motivo que no se cual sera.
Lo he probado en delphi 7 y anda, lo he probado en Delphi 2005 y anda....
Cosas de la programacion, no???
Gracias igual a los que leyeron este hilo.
El driver con que trabajo es de Core Lab para dbExpress.
Lo unico que cambie es la parte del seteo con sqlserver

procedure TForm1.ejecturar;
begin
  try
	Screen.Cursor := crHourGlass;
	case RadioGroup1.ItemIndex of
	  0:
		begin
		  with Interbase do
		  begin
			Close;
			Prepared := False;
			Prepared := True;
			ParamByName('id_empresa').AsString := '01';
			ParamByName('fecha1').AsDate := cxDateEdit1.Date;
			ParamByName('fecha2').AsDate := cxDateEdit2.Date;
			ParamByName('nro_base').AsInteger := 0;
			ParamByName('id_moneda').Value := null;
			if ParamByName('id_moneda').IsNull then
			begin
			  ParamByName('id_moneda').DataType := ftInteger;
			  ParamByName('id_moneda').Bound := True;
			  ParamByName('id_moneda').Clear;
			end;
		  end;
		end;
	  1:
		begin
		  with Mssql do
		  begin
			Close;
			Params.Clear;
			CommandText := '';
			CommandType := ctStoredProc;
			CommandText := 'L_ASIENTOS_D';
			if Prepared then
			  Prepared := False;
			Prepared := True;
			ParamByName('id_empresa').AsString := '01';
			ParamByName('fecha1').AsSQLTimeStamp := DateTimeToSQLTimeStamp(cxDateEdit1.Date);
			ParamByName('fecha2').AsSQLTimeStamp := DateTimeToSQLTimeStamp(cxDateEdit2.Date);
			ParamByName('nro_base').AsInteger := 0;
			ParamByName('id_moneda').Value := null;
		  end;
		end;
	end;
  ClientDataSet.Open;
  finally
	Screen.Cursor := crDefault;
  end;