TClientSocket Eigenschaften in eigener Unit

[Piro]

So, ich habe das jetzt mal geändert aber leider noch nicht am gewünschten Ziel.

Delphi-Quellcode:

...
type
  TMyClass = class
 private
    { Private-Deklarationen }
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  public
    { Public-Deklarationen }
end;
...
procedure TMyClass.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
// Code
end;

procedure TMyClass.ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
// Code
end;

function IsHostSocketAlive(Hostname: String; Port : Integer = 29979) : Boolean;
begin
 IsAlive := FALSE;
 Finish  := FALSE;
 Result  := FALSE;

 //Initialisierung des Objekts (ältere Delphi-Versionen)
 Client           := TClientSocket.Create(Client);
 Client.OnError   := TMyClass.ClientError;   // --> Hier kommt der Fehler
 Client.OnConnect := TMyClass.ClientConnect; // --> Hier kommt der Fehler

 ...
end;

Jetzt kommen die Fehlermedldungen:

Zitat:

E2010 Inkompatible Typen: 'TSocketErrorEvent' und 'Procedure'

Zitat:

E2010 Inkompatible Typen: 'TSocketNotifyEvent' und 'Procedure'

Was nun?