1:
2:
3:
4:

function IsOnline: boolean;
begin
  result:=InternetGetConnectedState(nil, 0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

If IsOnline := True then
begin
  edit1.text := 'online'
end;
If IsOnline := False then
begin
  edit1.text := 'offline'
end;					

1:

If IsOnline = True then					

1:
2:
3:
4:
5:
6:
7:
8:

If IsOnline = true then   //selbst das =true kannst du noch weglassen
begin 
  edit1.text := 'online' 
end
else
begin 
  edit1.text := 'offline' 
end;					

1:
2:

If IsOnline then edit1.text := 'online' 
            else edit1.text := 'offline' ;					

1:

Form1.Edit1.text :='online';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

private
  procedure OnOff;

...

procedure TForm1.OnOff;
var ergebnis : Boolean;
begin
  ergebnis := InternetGetConnectedState(nil, 0);
  if ergebnis then
  begin
  form1.edStatus.Text := 'on';
  form1.edStatus.Font.Color := clGreen;
  end
  else
  form1.edStatus.Text := 'off';
  form1.edStatus.Font.Color := clMaroon;
end;