вызвать процедуру для tray.OnClick и закрузить в нее нужную иконку

[KORN]

объясните как мне вызвать процедуру на объект который я создаю во время работы приложэния... вот часть кода:

 
var
  Form1: TForm1;
  tray: tTrayIcon;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  tray:=tTrayIcon.Create(owner);
end;

скажите как вызвать процедуру для tray.OnClick
и как можно закрузить в нее нужную иконку, заранее спасибо

[BOBAH13]

procedure OnTrayClick(Sender: TObject);
begin
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tray = TTrayIcon.Create(OWner);
tray.OnClick = OnTrayClick;
end;

[KORN]

работает, но когда заходит в процедуру

procedure Tform1.OnTrayClick(Sender: TObject); 
begin
tray.free;
endl;

то выдает ошибку

[KORN]

еще вопрос, как можно отследить существует объект или нет7 потому что мне надо его часто создавать и уничтожать несколькими способами...

[mutabor]

if объект <> nil then... //существует

[BOBAH13]

нет. в данном случае лучше Assigned(TObject)

[KORN]

а все таки почему выдает ошибку при выполнении процедуры7

[BOBAH13]

ну допустим по адрессу 0х00000000 - нихера нет... ну начало чего... а ты говориш дельфи что это адрес на клас. и потом обращаешся к этому класу.. ну и почему там ошибка ?

[BOBAH13]

или сделай следующее...

tray.OnClick := NIL;
tray.Free;