Como usar a função SetLocalTime() da API do Windows para alterar a data e hora do sistema

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

BOOL SetLocalTime(
  const SYSTEMTIME* lpSystemTime
);

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

procedure TForm3.Button1Click(Sender: TObject);
var
  data_hora: TSystemTime;
begin
  // vamos definir o dia, mês e ano
  data_hora.wDay := 22;
  data_hora.wMonth := 12;
  data_hora.wYear := 2010;

  // vamos definir a hora, minutos e segundos
  data_hora.wHour := 19;
  data_hora.wMinute := 20;
  data_hora.wSecond := 10;

  // vamos alterar a data e a hora
  if SetLocalTime(data_hora) then
    begin
      ShowMessage('A hora e a hora foram ajustadas com sucesso.');
    end
  else
    begin
      ShowMessage('Não foi possível ajustar a data e a hora.');
    end;
end;