unit2 birden fazla kez açılıyor


   Çözüm için boolen yapmaya çalıştım lakin syntax hatası alıyorum 
Source position : 12,24var
  uForm : TclStyleForm;
  btnUnit : TclButton;
  edtUnit : TclEdit;
  edtUrunAdi, edtUrunAciklamasi, edtUrunStok, edtBarkodBilgi, edtUrunFiyat : TclEdit;
  btnInsert : TclButton;
  testListview : TClListView;
  Qry : TClSQLiteQuery;
  database, password : String;
  okutBtn: TclButton;
  Unit2 : TclUnit;
  isUnit2Open: Boolean = False; // Unit2'nin açık olup olmadığını belirleyecek kod

void BarkodOkut;
{ 
  uForm.CallBarcodeReader(edtBarkodBilgi); 
}

void SendToMyForm;
{
  CallerForm.clShow;
}

void GetData;
{
  try
    Qry = Clomosy.DBSQLiteQueryWith('SELECT ''Urun adi:'' || UrunAdi as MAIN_TEXT, ''Urun Fiyati:'' || UrunFiyat as SIDE_TEXT_CENTER, ''Urun stok:'' || UrunStok as SIDE_TEXT_TOP, ''Barkod No:'' || BarkodOkut as FOOTER_TEXT, ''Urun Açıklaması:'' || Aciklamasi as SUB_TEXT FROM Categories');
    Qry.OpenOrExecute;
    testListview.clLoadListViewDataFromDataset(Qry);
  except
    ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  }
}

void InsertToDatabase;
{
  try
    Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Categories (UrunAdi, Aciklamasi, UrunStok, BarkodOkut, UrunFiyat) VALUES (' + QuotedStr(edtUrunAdi.Text) + ',' + QuotedStr(edtUrunAciklamasi.Text) + ',' + edtUrunStok.Text + ',' + QuotedStr(edtBarkodBilgi.Text) + ',' + edtUrunFiyat.Text + ')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    GetData;
    ShowMessage('Veri ekleme başarılı');
    edtUrunAdi.Text = '';
    edtUrunFiyat.Text = '';
    edtUrunAciklamasi.Text = '';
    edtUrunStok.Text = '';
    edtBarkodBilgi.Text = '';
  except
    ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  } 
}

void dokunmaDurum;
{
  if (uForm.clFormGestureEvent_GestureID == 264 && !isUnit2Open) 
  {
    isUnit2Open = True; // Unit2'nin açık olduğunu belirleme
    Clomosy.RunUnit('Unit2');
  }
  else {
    ShowMessage('Calismadi');
  }
}

void Unit2CloseEvent;
{
  isUnit2Open = False; // Unit2 kapandığında sıfırlancak
}

{
  uForm = TclStyleForm.Create(Self);
  edtUrunAdi = uForm.AddNewEdit(uForm, 'edtUrunAdi', 'UrunAdi');
  edtUrunAdi.Align = alMostTop;

  edtUrunAciklamasi = uForm.AddNewEdit(uForm, 'edtUrunAciklamasi', 'Aciklamasi');
  edtUrunAciklamasi.Align = alMostTop;

  edtUrunFiyat = uForm.AddNewEdit(uForm, 'edtUrunFiyat', 'Urun Fiyati');
  edtUrunFiyat.Align = alMostTop;

  edtUrunStok = uForm.AddNewEdit(uForm, 'edtUrunStok', 'UrunStok');
  edtUrunStok.Align = alMostTop;

  okutBtn = uForm.AddNewButton(uForm, 'okutBtn', 'Barkodu okutunuz');
  okutBtn.TextSettings.Font.Size = 40;
  okutBtn.Height = 50;
  okutBtn.Align = alMostTop;

  edtBarkodBilgi = uForm.AddNewEdit(uForm, 'edtBarkodBilgi', 'Barkod No:');
  edtBarkodBilgi.Align = alMostTop;
  uForm.AddNewEvent(okutBtn, tbeOnMouseDown, 'BarkodOkut');

  testListview = uForm.AddNewListView(uForm, 'testListview');
  testListview.Align = alClient;

  btnInsert = uForm.AddNewButton(uForm, 'btnInsert', 'Ekle');
  btnInsert.Align = alBottom;
  btnInsert.Height = 55;
  uForm.AddNewEvent(btnInsert, tbeOnMouseDown, 'InsertToDatabase');

  uForm.clSetTouchIG(igLongTap, testListview);
  uForm.AddNewEvent(testListview, tbeOnGesture, 'dokunmaDurum');

  database = Clomosy.AppFilesPath + 'ClomosyDatabase.db3';
  password = '';

  try
    Clomosy.DBSQLiteConnect(database, password);
    Clomosy.DBSQLiteQuery.SQL.Text = 'CREATE TABLE IF NOT EXISTS Categories(UrunAdi Text, Aciklamasi Text, UrunStok Text, BarkodOkut Text, UrunFiyat Text)';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Veri tabanına tablo ekleme işlemi başarılı!');
  except
    ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  }

  GetData;
  uForm.Run;
}