You can use the TCP component to retrieve the Local IP address. If it is "0.0.0.0" then there is no connection.

Example:

procedure TForm .Button Click(Sender: TObject); begin if TCP .LocalIp = '0.0.0.0' then ShowMessage('Your not connected!'); end; 4/2/99 :47: 3 AM