Menghitung User salah Login dengan Modal Result

dKali ini saya akan mencoba berkreasi dengan trik bagiamana kita menghitung atau meng counter user yang sedang login. Misalnya seorang user yang salah menginput password sebanyak 3x maka program otomatis ditutup atau di lock..
dengan sedikit contoh mungkin anda bisa melakukan kreasi yang lebih bagus tentunya..
kita menggunakan dua variabel yaitu salah, dan log. salah untuk menghitung berapa kali user melakukan salah login, sedangkan log untuk menampung modal result dari form login.
var log,salah:integer;
begin

      StatusIconIndex := 0;
      StatusIconIndex1 := 0;
      StatusIconIndex2 := 0;
      statusbar1.Repaint;

Timer1.Enabled:=false;
showstatus2('Disconnect....',1,gambar);
  showstatus('Disconnect :',false);
 salah:=0;
repeat
      log:=frmlogin.showmodal;
  if   log=mrok then
    begin
      if cekuser(frmlogin.eUser.Text) then
       begin
       if cekpassword(frmlogin.eUser.Text,frmlogin.epassword.Text) then
         begin
          // showmessage('yes');
            showstatus('Connected to server :',true);
            showstatus2('Connected User : '+frmlogin.eUser.Text,1,gambar);
            cekmenu(frmlogin.eUser.Text);
            Timer1.Enabled:=true;
            exit;
         end
       else
        begin
          showmessage('password salah');
        end ;
      end
      else
      begin
        showmessage('anda tidak terdaftar');
      end;
      inc(salah);
      showmessage('Salah '+inttostr(salah));
      if salah>=3 then exit;
      end
      else

        showstatus('Disconnect :',false);
   until (log=mrcancel)  ;
  cekmenu(frmlogin.eUser.Text);

end;

Posted in: DelPhi