var в заголовке стандартного обработчика

[Xenar]

Всем доброго дня.
Столкнулся с такой проблемой.
Мне нужно что бы стандартный обработчик типа

Код: Выделить всё

procedure TForm1.RadioButton4Change(Sender: TObject);

выдавал наружу данной процедуры значения переменной, меняю обработчик на

Код: Выделить всё

procedure TForm1.RadioButton4Change(Sender: TObject;  var procent: Integer);
begin
 procent:= 2;
end;

в объявлении класса формы тоже делаю соответствующее изменение.
Проект нормально компилируется без всяких предупреждений, но при реализации данного обработчика получаю ошибку

Код: Выделить всё

Проект вызвал класс исключения 'External: SIGSEGV'.

Если я убираю var из заголовка то исключения нет.

В чем я ошибся??

[rayanAyar]

Нельзя добавлять свои переменные в обработчик события.

[Xenar]

Печально. Но спасибо за разъяснения.

[rayanAyar]

Если будет больше информации зачем это было нужно - может придумаем как обойтись без добавления своих переменных в обработчик события. Я что-то не припомню чтобы возникала необходимость в таких манипуляциях.

[vada]

Можно создать класс наследник от нужного со свим обработчиком событий. Муторно правда...
Проще глобальную переменную описать чтобы стандартный обработчик в нее инфу складывал. Это запростяк.

[Vadim]

Можно создать переменную в private области класса и с ней работать в обработчике. Это будет проще.

[Xenar]

Всем спасибо, уже решил проблему путем дополнительной процедуры. Конечно, теоретические проще было бы передать значение из процедуры-обработчика, но нет так нет. Перефразируя классиков, "я пошел другим путем"

Добавлено спустя 4 минуты 24 секунды:

Проще глобальную переменную описать чтобы стандартный обработчик в нее инфу складывал. Это запростяк.

Хм очень интересно, а как?? В качестве задела на будущее. Но видимо Vadin как раз рецепт и написал, насколько я понял

Можно создать переменную в private области класса и с ней работать в обработчике. Это будет проще.