Con un simple QrLabel lo puedes resolver:
Código Delphi
[-]
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QrLabel1.Caption:='En Alicante a '+FormatDateTime('dd mmmm '' de '' yyyy',Date);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
quickRep1.PreviewModal;
end;
Un Saludo.