[[Caral]]

Hola
Genericamente:

Código Delphi [-]
procedure TFrmHab.BtnEmpleadoClick(Sender: TObject);
begin
 try
   RReport:=TRReport.Create(self);
   TblImprime.Open;
   TblImprime.Filter := 'Numero =' +Edit1.Text;
   TblImprime.Filtered := True;
    RReport.Preview;
   finally
   RReport.Free;
   end;

Saludos