\nprocedure SomeProcedure(adoConnection: TADOConnection;
MasOfParamName: array of string;
MasOfParamValue: array of Variant;
var i,j: integer;
ParamType: TParameterDirection;
ftType: TFieldType;

begin
stReports.Connection:= adoConnection;
stReports.ProcedureName:= 'st_temp';
stReports.Parameters.Clear;
case ... // тут выбор типа параметра, короче, присвоение ftType
4,5,-6: ftType:= ftInteger;
3,2: ftType:= ftBCD;
11: ftType:= ftDateTime;
12,1,-1: ftType:= ftString;
else
ftType:= ftString;
end;
case ... // а тут выбираю ParamType
1: ParamType:= pdInput;
2: ParamType:= pdInputOutput;
else
ParamType:= pdInput;
end;

for i:= low(MasOfParamName) to high(MasOfParamName) do
if VarToStr(parValue) <> '' then
stReports.Parameters.CreateParameter(parName, ftType, ParamType,
qStColumns.FieldByName('LENGTH').asInteger, ParValue)
else
stReports.Parameters.CreateParameter(parName, ftType, ParamType,
qStColumns.FieldByName('LENGTH').asInteger, null);


полный real-time. Все прекрасно работает и никаких глюков! Пользуюсь продолжительное время, косяков не наблюдал.
Ключевые моменты здесь -
1. stReports.Parameters.Clear
2. stReports.Parameters.CreateParameter(...)

ЗЫ это на ADO. От BDE отказался и не жалею.
ЗЗЫ А по поводу параметров в Stored Procedure - если они могут отсутствовать, им полюбому надо дефолтовое значение!
\nCREATE PROCEDURE SomeProcedure
@prm1 int = null, //может принимать значение null
@prm2 int, //обязательно наличие значения
...
AS
...