IdTelnet mit ConsoleApp

[TiGü]

Wie soll das kompilieren?

Delphi-Quellcode:

class mytelnet
public
   procedure read(buffer: string);
end;

...
IdTelnet1.OnDataAvailable := mytelnet.dataavail; // wrong type

Versuchs mal so:

Delphi-Quellcode:

TMyTelnet = class
public
   procedure DataAvail(Sender: TIdTelnet; const Buffer: String);
end;

...
var
  mytelnet: TMyTelnet;
begin
  mytelnet := TMyTelnet.Create;   
  IdTelnet1.OnDataAvailable := mytelnet.dataavail;

Doku:
http://www.e-iter.net/Knowledge/Indy9/007834.html#0004
http://www.e-iter.net/Knowledge/Indy9/007838.html