[jonydread]

lo solucione disculpen

Código Delphi [-]
procedure TMainform.urnoB1Click(Sender: TObject);
begin
 Application.CreateForm(TReporteForm, ReporteForm);
 with ReporteForm do
 begin
Zquery1.SQL.Text:= 'Select * FROM GrupoA';
Zquery1.Open;
QuickRep1.Preview;
end;
end;