[[Caral]]

Hola
En el ejemplo en el boton de imprimir cambia el codigo por este:

Código Delphi [-]
procedure TForm1.Button6Click(Sender: TObject);
begin
  Try
  QuickReport2:=TQuickReport2.Create(self);
  QuickReport2.ADOQuery1.SQL.Text:= 'Select * from Directorio where ID = :A';
  QuickReport2.ADOQuery1.Parameters[0].Value:= Edit4.Text;
  QuickReport2.ADOQuery1.Open;
  QuickReport2.Preview;
  finally
  QuickReport2.Free;
  end;
end;

Saludos