[The Shadow]

Подскажите, как создать инициатор события. Например свойство OnCount включается, когда переменная X = 5. Не знаю, как это сделать.

[BlackCash]

Возможно это подойдет, сам не пробовал...
///////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
P1: TProcedure;
begin
i:=5;
if i = 5 then begin
@P1 := @Button2.OnKeyDown;
P1;
end;
end;

[The Shadow]

Спасибо, но я имел в ввиду свойство своего компонента, а кнопки там нет.

[BlackCash]

Я привел пример инициализации события OnKeyDown,
переправь так как тебе надо... например...
///////////////////////////////////////////////////////
....
@P1 := @MyComponent.OnCount; // Ссылка на событие
....
///////////////////////////////////////////////////////

или ты свой компонент делаешь?

[Decoding]

Создай в секции private своего компонента переменную для своего события

Код:

private
  FCount: TNotifyEvent;

Затем в секции published создай событие

Код:

 
published
  property OnCount: TNotifyEvent read FCount write FCount;

Затем, в том месте кода компонента, где должно вызваться событие, напиши

Код:

 
if Assigned( FCount ) then OnCount( Self );

[The Shadow]

Сообщение от BlackCash

Я привел пример инициализации события OnKeyDown,
переправь так как тебе надо... например...
///////////////////////////////////////////////////////
....
@P1 := @MyComponent.OnCount; // Ссылка на событие
....
///////////////////////////////////////////////////////

или ты свой компонент делаешь?

Я свой компонент делаю.

[The Shadow]

Проблема в том, что я не знаю в каком месте писать if Assigned( FCount ) then OnCount( Self );

[Wipahacker]

AidarBik делай так как Говорит Decoding он знает что говирит!!

[Decoding]

Тогда выкладывай компонент (или вышли почтой), помогу…