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;