hab jetzt:
Code:
type
mySocket=class(TIdSMTPServer)
procedure ConnectEvent (AContext:TIdSMTPServerContext);
end;
var
Socket:mysocket;
procedure mySocket.ConnectEvent(AContext:TIdSMTPServerContext);
begin
writeln('Connected...');
end;
begin
Socket:=mysocket.Create;
Socket.DefaultPort:=25;
Socket.ServerName:='...';
Socket.OnConnect:= Self.ConnectEvent;
Socket.Active := true;
...
end.
Das ganze wird quittiert mit: "Error: Identifier not found "Self""
Iwas mach ich da wohl verkehrt...
Das Self. durch Socket. oder MySocket. zu ersetzen bringt auch nichts, dann meckert der Compiler, dass die Anzahl der Parameter nicht stimmt...