Verificando se já estou conectado na internet

{Use o componente TCP para fazer isso. } procedure TForm1.Button1Click(Sender: TObject);

begin
if TCP1.LocalIp = '0.0.0.0' then
ShowMessage('Você não está conectado!');
end;