Muda Horário de Verão

Entra/Sai do horário de verão.

procedure TForm1.HorarioVerao1Click(Sender: TObject);
begin
    ACBrECF1.MudaHorarioVerao ;
end;