procedure GetIpButtonOnClick(Sender: TObject); var KeyNames: TArrayOfString; I: Integer; CardIdKeyName, KeyName, ValueName: String; ServiceKey, IpAdd: String; begin CardIdKeyName := 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards'; if RegGetSubkeyNames(HKLM, CardIdKeyName, Ke