Clase TDataEvent

[jumanor]

holas:

La deficion en delphi es esta

TDataEvent = procedure (AThread: TIdPeerThread;AData:TObject) of object;

Acabo de probar en el builder lo siguiente y no me genera errores

//esto en el h
#include <IdNNTPServer.hpp>
...
void __fastcall Puntero(TIdPeerThread * AThread, TObject * AData);
...

//esto en el cpp
void __fastcall TForm1::Puntero(TIdPeerThread * AThread, TObject * AData)
{
//TODO: Add your source code here
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDataEvent mio;
mio=Puntero;
}

y no me genera ningun error salvo


Código Delphi [-][C++ Warning] Unit1.cpp(28): W8004 'mio' is assigned a value that is never used


que es por q no utilizo.

Haber asigna a mio la la direccion d tu funcion aver q sucede??????


Saludos