Código Delphi [-] type // *** Clase para pasar el evento TEventoRecibir = procedure (ASender :TObject; var ACadena :string) of object;
type // *** Clase para pasar el evento TEventoRecibir = procedure (ASender :TObject; var ACadena :string) of object;