Как вариант проверить коннект к какониб хосту

function TCheckUpdater.InInternet : boolean;
Var
// i : integer;
S : string;
WSAData: TWSAData;
Host : PHostEnt;
begin
result:=false;

S := 'delphi.mastak.ru';
{ i:=pos('http://', S); if i>0 then delete(S, 1, 7);
i:=pos('/', S); if i>0 then delete(S, i, 255);
}
if WSAStartup($101, WSAData) = 0 then
begin
Host := GetHostByName(@S[1]);
result := (Host <> nil);
WSACleanUp;
end;
if not result then begin
S:='www.microsoft.com';
if WSAStartup($101, WSAData) = 0 then
begin
Host := GetHostByName(@S[1]);
result := (Host <> nil);
WSACleanUp;
end;
end;
end;

ещче

TIdIcmpClient на вкладке IndyClient
там есть функции для ping a