Como retornar a quantidade de dias para um determinado mês e ano

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  mes, ano, dias_mes: Integer;
begin
  mes := 2;
  ano := 2010;

  // vamos obter a quantidade de dias para o mês de
  // fevereiro de 2010
  dias_mes := DaysInAMonth(ano, mes);

  // exibe o resultado
  ShowMessage('O mês informado possui ' + IntToStr(dias_mes) +
    ' dias');
end;