(在线等待哈!很急的!)请教高手,看看我的程序,问题在哪,付上了错误提示的!!()

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
Hide;
end;procedure TForm1.FormCreate(Sender: TObject);
type
  jihe1=set of 1..9;
  jihe2=set of 6..16;
  jiaoji=set of 1..20;
var
  ji1:jihe1;
  ji2:jihe2;
  kongji:jiaoji;
  m,n,h:string;
  i,j:integer;
begin
  m:='[';  j:=0;
  for i := 0 to 20 do
    if i in ji1 then
      if j := 0 then//此处  出现编译错误  delphi 提示如下:
{//[Error] U_jihe.pas(59): Type of expression must be BOOLEAN  
///[Fatal Error] P_jihe.dpr(5): Could not compile used unit 'U_jihe.pas'}
      begin
        m:=m+trim(inttostr(i));        j:=j+1;
      end
      else begin
        m:=m+','+trim(inttostr(i));        j:=j+1;
      end;
  m:=m+']';
  edit1.text:=m;
  {n:='[';
  j:=0;
  for i:=1 to 20 do
    if i in ji2 then
      if j:=0 then
      begin
        n:=n+trim(inttostr(i));
        j:=j+1;
      end
      else begin
        n:=n+','+trim(inttostr(i));
        j:=j+1;
      end;
  n:=n+']';
  edit2.text:=n;}
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  //edit3.text:=h;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  //edit3.text:=h;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  //edit3.text:=h;
end;end.
请问，问题在哪？