woher wisst ihr von welcher klasse ihr ableitet?

[Nothine]

versuch ma so

Delphi-Quellcode:

  private
  protected
    procedure Event(Socket: TCustomWinSocket; ErrorEvent: TSocketEvent); override;
    procedure Error(Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); reintroduce; virtual; abstract;
    procedure DoActivate(Value: Boolean); reintroduce; virtual; abstract;
  public
  published
  end;

implementation

  procedure TTSServer.Event(Socket: TCustomWinSocket; ErrorEvent: TSocketEvent);
  begin
    case ErrorEvent of
      seConnect:
        begin
          with Socket do
          begin
            SendText('CVERS 11015 4608' + #13#10);
            SendText('PASS supersecret' + #13#10);
            SendText('NICK ' + FNick + #13#10);
            SendText('apgar ' + FPassword + #13#10);
            SendText('Serial ' + FSerial + #13#10);
            SendText('USER UserName HostName irc.westwood.com :RealName' + #13#10);
            SendText('VERCHK 32512 720911' + #13#10);
            SendText('SETOPT 16,32' + #13#10);
          end;
        end;
      seRead:
        begin
          // später
        end;
    end;
  end;