procedure TRNombrar.QRLabel35Print(sender: TObject; var Value: String); begin ShortDateFormat:=('dd "de" mmmm "de" yyyy'); end;