Winsocket Connected?

Hello All!

How can i check in a Delphi 1.0 program if WINSOCK is currently
connected to the Internet via a dial-up adapter or if it is off-line?

I desperately hope someone can help me - Greetz - Tom