Интерфейс с парамером

[sildae]

Интерфейс написала впервые, модально и немодально работает, но при вызове из формы параметр не передается, все время 0. Что не так?

Interface SelectOtvet41;
var
vOtvet:Integer;
Parameters vOtvet;
create view;
handleEvent
cmInit: {
vOtvet:=0;
If (Message ('Выбор столика?',YesNo)=cmYes) vOtvet:=1;
abort;
}
end;
end.

Вызов из формы
описана p_otvet как Integer
.begin
P_otvet:=0;
Runinterface(‘SelectOtvet41’,p_otvet);
End.

Заранее спасибо!

[m0p3e]

1. Parameters принято указывать после описания логической таблицы.
Create View...;
Parameters.
2. Если в событии cmInit вызывается прерывание (Abort) то и в ответ ничего не получим, если в заголовке интерфейса не указано AlwaysReturn.
Interface SelectOtvet41 AlwaysReturn;
3. Вопросы можно и в форме задавать. Или это гипотетический пример?

[sildae]

m0p3e, спасибо огромное!!! Все заработало! Очень Вам признательна!