Entendendo o tipo TDateTime do Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // vamos receber a data de hoje
  hoje := Now;

  // vamos exibir o resultado
  ShowMessage(DateTimeToStr(hoje));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
  dia_mes: integer;
begin
  // não esqueça de incluir DateUtils no uses

  // vamos receber a data de hoje
  hoje := Now;

  // vamos obter o dia do mês
  dia_mes := DayOfTheMonth(hoje);

  // vamos exibir o resultado
  ShowMessage('O dia do mês é: ' + IntToStr(dia_mes));
end;