DELPHI: Inicializar un datetimepicker al día 01 de ese mes

//Lo ponemos en un evento de botón

En el uses habrá que poner "dateutils"

procedure TForm1.Button1Click(Sender: TObject);
var
mes, dia, ano :word;
begin
decodedate(datetimepicker1.date, ano, mes, dia);
datetimepicker1.date := encodeDate(ano,mes,1);
end;