Как открыть диалог смены системного времени?

uses 
  Shellapi; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW); 
end; 

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php