Provera da li je kliknuto na close (X) dugme forme

Code:

var
 i:integer;
begin
  i:=1;
  zatvori:=false;
  repeat
  if TfrmLogin.DoLogin then
  begin
    Application.Initialize;
    //Application.MainFormOnTaskbar := True;
    Application.CreateForm(TfrmGlavna, frmGlavna);
    Application.Run;
  end
  else
    ShowMessage('Login name or password incorrect. Attempt: '+IntToStr(3-i));
    i:=i+1;
  until i>3;
end.

Code:

procedure TfrmLogin.btnIzlazClick(Sender: TObject);
begin
    Close;
end;

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
  frmMain: TfrmGlavna;
begin
    IBQuery1.SQL.Text:='select * from login where korisnicko=:kor and lozinka=:loz';
    IBQuery1.ParamByName('kor').Value:= edKorisnicko.Text;
    IBQuery1.ParamByName('loz').Value:= edLozinka.Text;
    IBQuery1.Open;
    if not IBQuery1.IsEmpty then begin
      frmLogin.Hide;
      frmMain:=TfrmGlavna.Create(nil);
      frmMain.ShowModal;
      frmMain.Free;
      frmLogin.Close;
    end
    else
    begin
      edKorisnicko.Clear;
      edLozinka.Clear;
      ShowMessage('Pokusajte ponovo');
    end;

end;

Code:

class function TfrmLogin.DoLogin:bool;
begin

with TfrmLogin.Create(nil) do
   try
     Result := ShowModal = mrOk;
   finally
     Free;
   end;
end;

Code:

var
  nema: boolean;
begin
  IBQuery1.SQL.Text:='select * from login';
  IBQuery1.Open;
  nema:= false;
  brojac:=brojac+1;
  while not IBQuery1.Eof do begin
    if (edKorisnicko.Text=IBQuery1.FieldByName('korisnicko').AsString) and
       (edLozinka.Text=IBQuery1.FieldByName('lozinka').AsString) then
    begin
      ModalResult := mrOK;
      nema:=false;
      break;
    end
    else
    begin
     //ModalResult := mrAbort;
     nema:= true;
   end;
  IBQuery1.Next;
  end;
   if (nema=true) and IBQuery1.Eof then
   begin
      ShowMessage('Morate uneti validno korisnicko ime i lozinku!'+#10+
                  'Imate jos '+IntTostr(3-brojac)+' pokusaja za logovanje');
   end;
  IBQuery1.Close;
  CloseForm;// procedura koja proverava globalnu promenljivu brojac, ako je brojac=3 zarvara se aplikacija
end;

Code:

WHERE
  USER_NAME = 'UserName' AND 
  PASS           = 'Pass';