DFÜ (internet) connection manager

[ShinmA]

Hallo erstmal,

ich möchte ein program schreibn das mich connected un disconnected.
Ich habe WinXP und müss normalerweise rechtsklick auf das DFÜ icon
klicken und dann Verbinden auswählen.
ich bin neu in Delphi also habe ich nich viel ahnung aber so sieht mein prgram bis jetzt aus:

Delphi-Quellcode:

uses
  WinInet;

procedure TForm1.bt_killClick(Sender: TObject);
begin
InternetAutodialHangup(0);
end;

procedure TForm1.bt_connClick(Sender: TObject);
begin
InternetAutodial(internet_autodial_force_unattended, handle);
end;

procedure TForm1.bt_endClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.bt_statClick(Sender: TObject);
var result:boolean;

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

 if result = true then
     ed_stat.Text := 'online';
  if result <> true then
     ed_stat.Text := 'offline';
end;

end.

Aber wenn ci hauf die buttons Trennen(bt_kill) / Verbinden (bt_conn) drücke dann passiert nichts.
bitte helft mir weiter.