[x..x]안의 것은 집합형만 가능합니다. 1..a는 사용자 정의 범위형인데, 이는
맞지 않습니다. 델파이의 버그가 아닙니다. 파싱 구조상 어쩔수 없습니다.

var
  a: set of integer;
  loop: integer;
begin
  a := [];
  for loop := 1 to 580 do include(a, loop);
  if 77 in a then ~~~~
end;

으로 하시면 제대로 나올 것입니다. (확인 안해봤습니다)