Talimat: Giriş işlemi yapan bir fonksiyon oluştur.
Kod:
void BtnOnLoginClick;
{
  try
    LoginQuery.Sql.Text = 'SELECT * FROM KaydolBilgi WHERE Eposta = ' + QuotedStr(EmailEdit.Text) + ' AND Parola = ' + QuotedStr(ParolaEdit.Text);
    LoginQuery.Open;
    if(LoginQuery.Found)
    {
      if ((EmailEdit.Text == 'caferkos7@gmail.com') &&(ParolaEdit.Text == 'admin1234'))
        AdminPanelUnit;
      else
        IlanUnit;
    }
    else
    {
      ShowMessage('E-posta veya parola yanlış. Lütfen tekrar deneyiniz.');
    }
  except
    ShowMessage('Exception Class : ' + LastExceptionClassName + 'Exception Message' + LastExceptionMessage);
}