[by_HT]

извенаюсь за такой жаргон...буду исправляться!!!!
romeo все отлично, все заработало.... только мы опять упустили один цикл

IF SpecHeader.FIND('-') THEN REPEAT 
  SpecHeader2.SETRANGE(Name, SpecHeader.Name);
  SpecHeader2.SETFILTER("No.", '<>%1', SpecHeader."No.");
  IF SpecHeader2.FIND('-') THEN REPEAT
	SpecLine.SETRANGE("Production BOM No.", SpecHeader."No.");
	SpecLine2.SETRANGE("Production BOM No.", SpecHeader2."No.");
	IF SpecLine.COUNT = SpecLine2.COUNT THEN BEGIN
	  IF SpecLine.FIND('-') THEN REPEAT
	  IF SpecLine2.FIND('-') THEN REPEAT
		SpecLine2.Setrange("Name", SpecLine."Name");
		SpecLine2.Setrange("Quantity per", SpecLine."Quantity per");
		IF NOT SpecLine2.ISEMPTY() THEN BEGIN
		  Ret := TRUE;
		  Var1 := SpecHeader."No.";
		  Var2 := SpecHeader2."No.";
		END;
	   UNTIL  Ret OR (SpecLine2.NEXT = 0);
	  UNTIL Ret OR (SpecLine.NEXT = 0);
	END;
  UNTIL Ret OR (SpecHeader2.NEXT = 0);
UNTIL Ret OR (SpecHeader.NEXT = 0);

IF Ret
  THEN MESSAGE('Есть совпадение') 
  ELSE MESSAGE('Нету сопадений');

теперь работает так как мне надо....