在线等高手解决（急！！！！！！！！！！！！！！）

unit U_jihe;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.dfm}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｛本行出现编译错误 提示如下：
　　[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.
请问，问题在哪？