[Lenny]

Aun no funciona...

Sigo en lo que me dicen y aun no resulta... ya estoy perdiendo las esperanzas, esto seria el codigo (mas ordenado):

Código Delphi [-]

procedure TPRODUCCIONBG.Button1Click(Sender: TObject);
var
Filtro: String;
begin 
while not ZTable2.Eof do  begin
Filtro := Filtro + ' or COD_INTERNO = ' + ZTable2.FieldByName('COD_INTERNO').ASstring;
ZTable2.Next  
end;
ZTable1.Filter := filtro;
end;

Código Delphi [-]
procedure TPRODUCCIONBG.Button2Click(Sender: TObject);
var
  Filtro: String;
begin
  Filtro := '';
  while not ZTable2.Eof do
  begin
       Filtro := Filtro + ' or COD_INTERNO = ' + chr(39) + ZTable2.FieldByName('COD_INTERNO').ASstring + chr(39);
     ZTable2.Next
  end;
  ZTable1.filter := Filtro;
  ZTable1.Filtered := True;
end;

Muy agradesido por la ayuda hasta ahora... cualquier duda estare atento...

PD: El COD_INTERNO es ALFANUMERICO por si acaso...