Como obter o primeiro dia do mês?

{ É necessário declarar DateUtils. 
Em versões mais recentes declare System.DateUtils. }

// Basta passar uma data por parametro
// Função própria do Delphi.
StartOfTheMonth( const aValue: TDateTime );

// Exemplo de uso
StartOfTheMonth( Date );