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

Дата: 01.01.2007

uses 
  Shellapi; 

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