Delphi Service project

I need someone to create a DNS failover solution using Delphi 7 preferably. The DNS failover solution comprises of a service and a GUI. I should be able to: 1). Set the ip address of the server which i want to monitor using TCP connection. 2). To activate and disable the monitor. 3). Define the polling intervals, retry polling interval and response timeout, and the maximum number of failed polls accepted. 4). Configure the DNS servers to update on failure, such that the failover server will adopt the domain name of the failed server. 5). View activity logs/errors real-time. 6). View the status of the server being monitored real-time (Red for down, Green for up) 7). Send Email via SMTP (configurable) in the event of failure and failover. Coder should provide an NSIS installer to install the service and GUI.