Syntax Error


   merhaba aşağıdaki kodda en son satırda anlamlandıramadığım bir sytanx error alıyorum şimdiden yardımlarınız için teşekkür ederim  

var
  KayitForm: TclStyleForm;
  nameEdit, surnameEdit, emailEdit, passwordEdit: TclProEdit;
  kayitButton: TClProButton;
  titleLabel: TClProLabel;

function IsValidAndUniqueEmail(mail: String): Boolean;
var atPos, dotPos, adetInt: Integer;
{
  atPos = Pos('@', mail);
  dotPos = Pos('.', mail);

  if (atPos <= 1 || dotPos <= atPos + 1 || dotPos >= Length(mail)) {
    ShowMessage('Geçerli bir e-posta adresi giriniz.');
    Result = False;
    exit;
  }

  try
    Clomosy.DBSQLiteQuery.SQL.Text = 
      'SELECT COUNT(*) as adet FROM Users WHERE Email = ' + QuotedStr(mail);

    Clomosy.DBSQLiteQuery.Open; 
   adetInt = 0;
    if not Clomosy.DBSQLiteQuery.Eof
     adetInt = Clomosy.DBSQLiteQuery.FieldByName('adet').AsInteger;

    Clomosy.DBSQLiteQuery.Close;

    if (adetInt > 0) {
      ShowMessage('Bu e-posta adresi zaten kayıtlı.');
      Result = False;
    } else {
      Result = True;
    }

  except
   ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
    Clomosy.DBSQLiteQuery.Close;
    Result = False;
  }
}


function CheckBlanks: Boolean;
{
  if (Trim(nameEdit.Text) == '' || Trim(surnameEdit.Text) == '' ||
      Trim(emailEdit.Text) == '' || Trim(passwordEdit.Text) == '') {
    ShowMessage('Lütfen tüm alanları doldurun.');
    Result = False;
  } else {
    Result = True;
  }
}

void ResetFields;
{
  nameEdit.Text = '';
  surnameEdit.Text = '';
  emailEdit.Text = '';
  passwordEdit.Text = '';
}

void KayitOl;
{
  if (CheckBlanks && IsValidAndUniqueEmail(emailEdit.Text)) {
    Clomosy.DBSQLiteQuery.SQL.Text = 
      'INSERT INTO Users (Email, FirstName, LastName, Password) VALUES (' +
      QuotedStr(emailEdit.Text) + ',' +
      QuotedStr(nameEdit.Text) + ',' +
      QuotedStr(surnameEdit.Text) + ',' +
      QuotedStr(passwordEdit.Text) + ')';

    try
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      ShowMessage('Kayıt başarıyla tamamlandı.');
      ResetFields;
    except
      ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  }
}


{
  KayitForm = TclStyleForm.Create(Self);
  KayitForm.SetFormBGImage('https://i.imgur.com/XYlUQhl.jpeg');

  titleLabel = KayitForm.AddNewProLabel(KayitForm, 'titleLabel', 'Kayıt Ol');
  titleLabel.Align = alTop;
  titleLabel.Height = 40;
  titleLabel.clProSettings.FontSize = 20;
  titleLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  titleLabel.clProSettings.TextSettings.FontHorzAlign = palCenter;
  titleLabel.SetclProSettings(titleLabel.clProSettings);

  nameEdit = KayitForm.AddNewProEdit(KayitForm, 'nameEdit', 'Adınız');
  nameEdit.Align = alTop;
  nameEdit.Height = 40;
  nameEdit.Margins.Top = 20;

  surnameEdit = KayitForm.AddNewProEdit(KayitForm, 'surnameEdit', 'Soyadınız');
  surnameEdit.Align = alTop;
  surnameEdit.Height = 40;
  surnameEdit.Margins.Top = 10;

  emailEdit = KayitForm.AddNewProEdit(KayitForm, 'emailEdit', 'E-posta adresi');
  emailEdit.Align = alTop;
  emailEdit.Height = 40;
  emailEdit.Margins.Top = 10;

  passwordEdit = KayitForm.AddNewProEdit(KayitForm, 'passwordEdit', 'Şifre');
  passwordEdit.Align = alTop;
  passwordEdit.Height = 40;
  passwordEdit.Password = True;
  passwordEdit.Margins.Top = 10;
  passwordEdit.SetclProSettings(passwordEdit.clProSettings);
  

  kayitButton = KayitForm.AddNewProButton(KayitForm, 'kayitButton', 'Kayıt Ol');
  kayitButton.Align = alTop;
  kayitButton.Height = 45;
  kayitButton.Margins.Top = 20;
  kayitButton.clProSettings.TextSettings.Font.Style = [fsBold];
  kayitButton.clProSettings.FontHorzAlign = palCenter;
  kayitButton.SetclProSettings(kayitButton.clProSettings);
  KayitForm.AddNewEvent(kayitButton, tbeOnClick, 'KayitOl');

  KayitForm.Run;
}