EVENTO DE COMPONENTES RUNTIME

Pessoal, estou criando alguns componentes em runtime como no código abaixo, funciona OK,

function TForm1.AddComponent(BaseClass: TComponentClass; p: TPoint): TComponent;
begin
result := BaseClass.Create(self);
result.Tag := 900;
result.Name := BaseClass.ClassName + inttostr(ComponentCount+1);
with TWinControl(result) do
begin
Parent := Self;
Left := p.X;
Top := p.Y;
Visible := True;
OnClick := btnClick;
end;
end;

procedure TForm1.btnClick(Sender: TObject);
begin
ShowMessage('teste');
end;

mas o evento ONCLICK não funciona, não retorna nada, nem certo nem errado. Alguém pode dar uma ajuda ai