サーバーの日付、時間の取得について検索して１つ例を見つけたのですが、
戻り値をどう設定すれば良いか解かりません。また、この方法でよいのでしょうか？

function GetServerTime:TDateTime;
var
　StartupInfo : TStartupInfo;
　ProcessInfo : TProcessInformation;
　timeServer : string;
begin
　GetStartupInfo(StartupInfo);
　StartupInfo.wShowWindow := SW_HIDE;
　timeServer := '\\サーバー名';

　CreateProcess('c:\WINNT\systw32\net.exe',
　PChar('c:\WINNT\system32\net.exe time ' + timeServer + ' /SET /YES'),nil,nil,
　　　　　False,0,nil,nil,StartupInfo,ProcessInfo);
　while WaitForSingleObject(ProcessInfo.hProcess, 0) = WAIT_TIMEOUT do
　begin
　　Application.ProcessMessages;
　end;
end;