Como codificar OnClick em Tempo de Execução?????

[b:fbf28060c5]Estou desenvolvendo um Site em IntraWeb e estou tendo o seguinte problema: Estou cadastrando as opções de um menu e q estou usando em um IWTreeView onde pretendo adicionar os itens em tempo de execução de acordo com cadastro feito em uma tabela no MS-SQL Server contendo as opções então no envento OnCreate do formMain eu leio a tabela q tem as opções e vou montando item a item informando caption e também codificando o evento OnClick de acordo com informações da tabela ex:- [/b:fbf28060c5]

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
Query1.Open;
IWTreeView1.Items.Items[0].OnClick := TformApresentacao.Create(RWebApplication).[u:fbf28060c5]Show[/u:fbf28060c5];
end;

A procedure [u:fbf28060c5]Show[/u:fbf28060c5] a cima não está sendo disponibilizada.

:shock:

[u:fbf28060c5][/u:fbf28060c5][u:fbf28060c5][/u:fbf28060c5]