Hola
Si, ztable2.open y ztable3.open tambien, abiertas.
Prueba 2:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Filtro: String;
begin
ZTable3.Filtered := False;
Filtro := ' COD_INTERNO <> ' + ZTable2.FieldByName('COD_INTERNO').ASstring;
ZTable3.Filter := Filtro;
ZTable3.Filtered := True;
end
else
ZTable3.Filtered := False;
end;
end;
Si no seria bueno por sql.
Saludos