Cambiar la fecha y hora del PC

procedure TForm1.Button1Click(Sender: TObject);
 
  procedure FechaDelSistema(Fecha: TDateTime);
  var 
    FecSys: TSystemTime;
    nA, nM, nD: Word;
  begin 
    DecodeDate(Fecha, nA,nM,nD);
    GetLocalTime(FecSys);
    FecSys.wYear  := nA;
    FecSys.wMonth := nM;
    FecSys.wDay   := nD;
    SetLocalTime(FecSys);
  end; 
begin 
  FechaDelSistema( StrToDate('23/08/2002') );
end;