Crear eventos para una clase

[DarkByte]

Ya está, ¡¡Perfecto!! Muchas gracias.. ahora a rellenar los procedimientos .. en eso creo que no voy a tener problemas

¡¡Muchísimas gracias!!

[DarkByte]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
  procedure Recibir (ASender :TObject; var ACanal, AComando, AParametros :string; var Privado : boolean);
  begin
    Memo1.Lines.Add('Canal: '+ACanal +' Comando: '+ AComando+' Parametros: '+AParametros);
  end;
var
  Bot : TEscipion;
begin
  Bot := TEscipion.Create;
  Bot.Ip := '127.0.0.1';
  Bot.Puerto := 60;
  Bot.FAlRecibir := Recibir; //¡Error!
  Bot.Conectar;
end;

Error: [Error] Unit1.pas(43): Incompatible types: 'method pointer and regular procedure'

[roman]

Recibir tiene que ser un método de un objeto, no puedes asignar un procedimiento cualquiera.

// Saludos

[[maeyanes]]

El error es por que Recibir no puede ser un procedimiento cualquiera. Tiene que se un método de una clase. En tu caso, Recibir debe ser un método de TForm1.

Código Delphi [-]
TForm1 = class(TForm)
private
  procedure Recibir(ASender: TObject; var ACanal, AComando, AParametros: string;
    var Privado: Boolean);
end;

Saludos...