Edit1.Text 는 String입니다-String은 연산을 할 수 없으므로 Error가 발생
하였을 것입니다.
Procedure XX(..)
var
  i : Integer;
begin
i := StrToInt(Edit1.Text);
....
...
Where (Field  > i-50) and (Field < i+50);
open
end;