Delphi Active Directory module

I need a couple of functions written to allow user authentication via Active Directory.? The project is to create these functions. The first function is to authenticate the curently logged in user and the other is a generic authentication passing in user login and password.? The 2 functions and their description is as follows: function AuthenticateLoggedInUser ( var FirstName, LastName, EmailAddress ) : boolean; This function should identify the currently logged in user profile and try to authenticate. If authenticated, the firstname, lastname and emailaddress should be passed back in the respective fields and the true should be return. If not authenticated, then the result should be false function Authenticate( sLogin, sPassword : string; var FirstName, LastName, EmailAddress ) : boolean; This function will try to authenticate using the login and password passed in. If authenticated, the firstname, lastname and emailaddress should be passed back in the respective fields and the true should be return. If not authenticated, then the result should be false These function should work on Win 2k and higher including Server 2008. In addition, this would work when called from an ISAPI (web) dll and a desktop application. This should be fairly quick for someone with Active Directory experience. This could also lead to more projects in the future. thanks ## Deliverables I will need the source code and test in my enviroment to confirm functionality before payment is rendarded.