Вечер добрый.

Вопрос относительно технологии ADO TStoredProc->SQL Server2000
Помогите,не могу вывести результат своей хранимой на сервере:

Create Procedure FindAvtoModel
@marka varchar(40)=Null,@model varchar(40)=Null,@color varchar(30)=Null,@price varchar(30)=Null
AS
IF (@marka='All')AND(@model='All')AND(@color='All')AND(@price='All')
begin
Select* From Avto
return
end
else
Declare
@W varchar(1000)
SET @W='1=1'
IF (@marka IS Not Null)
SET @W=@W+' AND a.Marka='''+@marka+''''
IF (@model IS Not Null)
SET @W=@W+' AND a.Model='''+@model+''''
IF (@color IS Not Null)
SET @W=@W+' AND ac.Color='''+@color+''''
Declare
@p varchar(20)
SET @p=0
IF (@price IS Not Null)
begin
Select @p=
Case @price
WHEN 'Up to 10.000$'THEN '<=10000'
WHEN 'Up to 15.000$'THEN '<=15000'
WHEN 'Up to 20.000$'THEN '<=20000'
WHEN 'Up to 25.000$'THEN '<=25000'
WHEN 'Up to 30.000$'THEN '<=30000'
WHEN 'Up to 50.000$'THEN '<=50000'
WHEN 'Up to 70.000$'THEN '<=70000'
WHEN 'Up to 100.000$'THEN '<=100000'
WHEN 'It is from above 100000$'THEN '>100000'
end
SET @W=@W+' AND a.Price'+@p+''
end

EXEC('SELECT a.*,ac.Color INTO ##T
FROM Avto a
INNER JOIN AvtoC ac
ON a.AvtoID=ac.AvtoID
WHERE '+@W)
SELECT * FROM ##T
Drop Table ##T

Код в приложении:
procedure TForm1.Button7Click(Sender: TObject);
begin
with MD do
begin
StoredProc.Active:=false;
StoredProc.ProcedureName:='FindAvtoModel';
StoredProc.Prepared;
StoredProc.Parameters.ParamByName('@marka').value:=ComboBox10.Text;
StoredProc.Parameters.ParamByName('@model').value:=ComboBox11.Text;
StoredProc.Parameters.ParamByName('@color').value:=ComboBox15.Text;
StoredProc.Parameters.ParamByName('@price').value:=ComboBox13.Text;
StoredProc.ExecProc;
end;

end;

Delphi выдает сообщение, что не находит переменную.Что посоветуете новичку.