Проблема с хранимой процедурой в Delphi

[Innnni]

Добрый день, у меня проблема с реализацией хранимой процедуры в Delphi. Хочу создать процедуру, выдающую список тренировок, в которых участвовал заданный по номеру альпинист. Текст процедуры:

CREATE PROC my_proc1
@a INT
AS
SELECT Тренировки.Дата, Вершины.Название as Вершина
FROM Вершины INNER JOIN
(Тренировки INNER JOIN
([Участие в тренировках] INNER JOIN Участники
ON [Участие в тренировках].Участник=Участники.[ID участника клуба])
ON Тренировки.[ID тренировки]=[Участие в тренировках].[ID тренировки])
ON Вершины.[ID вершины]=Тренировки.[ID вершины]
WHERE Участники.[ID участника клуба]=@a

При вызове процедуры в SQLManagmentStudio она работает нормально! В Delphi создаю ADOStoredProc1, задаю ProcedureName, задаю параметр @a с типом integer. Пишу код:

procedure TForm5.Button3Click(Sender: TObject);
begin
with ADOStoredProc1 do
begin
ADOStoredProc1.Parameters.ParamByNa me('@a').Value:=DBEdit1.Text;
end;
begin
ADOStoredProc1.ExecProc;
end;
end;

Не работает... Все перепробовала, помогите пожалуйста.