[morfeo21]

No puedo hacer lo que tu me indicas
pues el QuickReport ya lo tengo creado visualmente y diseñado
yo solo lo invoco asi

procedure TfrmTgen622u.btnImprimirClick(Sender: TObject);
begin
if SetDataReporte() then
qrpTipoCambio.Preview
else
ShowMessage('No existe informacion a mostrar');
end;