Как определить - подключен ли компьютер к сети

Воспользуемся функцией GetSystemMetrics(), переслав ей флаг SM_NETWORK:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
    ShowMessage('Machine is attached to network')
  else
    ShowMessage('Machine is not attached to network');
end;

Другое по теме:

• Состояние подключения к сети
• Как подключать сетевые диски
• Как подключить и отключить сетевые диски