Memo1.Lines.Add('系统状态:正在重新拨号!........'); DialUp1.Username:=Trim(RzEdit4.Text); DialUp1.Password:=Trim(RzEdit5.Text); DialUp1.ConnectTo:=Trim(RzComboBox1.Text); DialUp1.GoOffline; TrayIcon1.ShowBalloonHint('系统状态','断开网络成功',bitInfo, 10); Delay(5000); if DialUp1.GoOnline then begin delay(5000); myIP:=getLocalIP;