Program - problem z brakiem internetu

[polymorphism]

Nie daje, bo trzeba przeczytać, co jest w dokumentacji na temat tego zdarzenia:

(...) Set the ErrorCode parameter to 0 if the OnError event handler successfully deals with the error condition, to prevent an ESocketError from being raised.

Prawdopodobnie jeśli zastosujesz się do tego, co tu masz napisane, problem zniknie.

[Cyfrowy Baron]

Doinstalowałem stare sokety z BCB6 ponieważ na tych nowych połączenie z gg nie działało.

Nie wiem jak tego dokonałeś, ale sockety z BCB6 nie będą prawidłowo działały w C++Builder 2010.

W Embarcadero RAD Studio 2010 można doinstalować stare sockety, czyli TClientSocket i TServerSocket, ale te które są dołączone do tegoż środowiska, a robisz to tak:

1. W menu Component wybierasz polecenie Install packages.
2. W oknie, które wyskoczy klikasz na przycisku Add.
3. Wyszukujesz plik dclsockets140.bpl w podkatalogu bin środowiska, np: C:\Program Files\Embarcadero\RAD Studio\7.0\bin
4. Klikasz OK i masz zainstalowane TClientSocket i TServerSockets na zakładce Internet.

Te sockety są zgodne z C++Builder 2010, ale jeżeli przeniosłeś jakieś pliki z BCB 6 to raczej nie są zgodne i mogą wywoływać błędy.