Здравствуйте, Дмитрий Александрович!
Вот как проверить, подключен ли компьютер к интернету:
1 способ:
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result:= InternetGetConnectedState(@dwConnectionTypes, 0);
end;
procedure TForm1.XiButton1Click(Sender: TObject);
begin
if IsConnectedToInternet then showmessage (‘Y‘) else showmessage (‘N‘);
end;
2 способ:
function GetConnect(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := ‘‘;
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and 1) = 1 then strKind := ‘Modem‘;
if (flags and 2) = 2 then strKind := ‘LAN‘;
if (flags and 4) = 4 then strKind := ‘Proxy‘;
if (flags and 8) = 8 then strKind := ‘Modem Busy‘;
end;
end;
procedure TForm1.XiButton2Click(Sender: TObject);
var strkind:string;
begin
if GetConnect(strKind) then
ShowMessage(‘есть‘)
else
ShowMessage(‘нету‘);
end;
По поводу соединения: сообщите мне свой e-mail (по вн.почте или в мини-форуме), я вам вышлю проект или сами поищите в сети файл d_ras.zip.

Здравствуйте, Дмитрий Александрович!
Можно пропинговать www.ru, можно использовать InetIsOffline или InternetCheckConnection.

Приложение:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external ‘URL.DLL‘;