Develop two simple functions in Delphi, relating to installation of Windows

Implement using Delphi 2010 or compatible, the following two functions: Function DetectOEMStatus : String; This function will return the OEM manufacturer of the Windows PC. For example, on a Dell laptop, the function would return "Dell", on a HP desktop computer, "HP" and so on. If the computer is not by a known OEM manufacturer like Dell, HP, Asus, Lenovo etc, then return an empty string. Function DaysSinceWinInstalled : Integer; This function will return the number of days since the Windows operating system has been installed. If such data cannot be read from any system file or registry, then guestimate the number based on the Creation date of windows system files. Only make a bid if you can start the work right now. This is a simple job and I need it done asap.