Fórum Porque é tão complicado esse BEGIN...END (com ou sem ;) #273159

procedure TForm_Controle_Acessos.BtnOKClick(Sender: TObject); 
var
  Result: Boolean; 
begin 
  // Inicializa com a Validação Falsa 
  Result := False; 
  // Abrindo tabela de Usuários 
  DataMod.ADOTable_Usuarios.Open; 
  // Se o Nome do Usuário não foi informado o sistema avisa 
  If Form_Controle_Acessos.FUsuario.Text = ´´ then 
  begin 
    MessageBeep(64); 
    MessageDlg(´O Usuário não foi informado´,mtInformation,[mbOK],0); 
    Form_Controle_Acessos.FUsuario.SetFocus; 
    Abort; 
  end; 
  // Se a senha não foi informada o Sistema Avisa 
  If Form_Controle_Acessos.FSenha.Text = ´´ then 
  begin 
    MessageBeep(64); 
    MessageDlg(´A Senha não foi informada´,mtInformation,[mbOK],0); 
    Form_Controle_Acessos.FSenha.SetFocus; 
    Abort; 
  end; 
  // Verifica se o Usuário Existe 
  if not DataMod.ADOTable_Usuarios.Locate(´USU_COD´, FUsuario.Text, []) then 
  begin 
    MessageBeep(64); 
    MessageDlg(´Erro: Usuário Inválido ou não está cadastrado!´,mtInformation,[mbOK],0); 
    FUsuario.SetFocus; 
    // Incrementa o número de tentativas 
    LimSenhas := LimSenhas + 1; 
    if LimSenhas > 3 then 
    begin 
      ShowMessage(´O limite de Tentativas de Acesso foi excedido!´); 
      Form_Controle_Acessos.Close; 
    end 
    else if DataMod.ADOTable_UsuariosUSU_BLOQUEADO.AsBoolean Then 
    begin 
      ShowMessage(´Erro: Este Usuário está Bloqueado!´); 
      FUsuario.SetFocus; 
    end; 
  end; 
  if DataMod.ADOTable_UsuariosUSU_PASW.Text <> FSenha.Text then 
  begin 
    MessageBeep(64); 
    MessageDlg(´Erro: Senha Inválida!´,mtInformation,[mbOK],0); 
    FSenha.SetFocus; 
    LimSenhas := LimSenhas + 1; 
    if LimSenhas > 3 then 
    begin 
      ShowMessage(´O limite de Tentativas de Acesso foi excedido!´); 
      Form_Controle_Acessos.Close; 
    end; 
  end 
  else 
    Result := True; 


end; //OLHA O ERRO AQUI, ESSE END NÃO PODE EXISTIR


  // Fecha a tabela de senhas do Usuário 
  DataMod.ADOTable_Usuarios.Close; 
  // Inicializa a Aplicação do Sistema 
  If Result = True Then 
  begin 
    Application.CreateForm(TForm_Menu_Principal, Form_Menu_Principal); 
    Form_Menu_Principal.ShowModal; 
  end; 
end;

if DataMod.ADOTable_UsuariosUSU_PASW.Text <> FSenha.Text then //VAMOS CHAMAR DE IF-UM
begin //ABRE IF-UM
  MessageBeep(64); 
  MessageDlg(´Erro: Senha Inválida!´,mtInformation,[mbOK],0); 
  FSenha.SetFocus; 
  LimSenhas := LimSenhas + 1; 
  if LimSenhas > 3 then //VAMOS CHAMAR DE IF-DOIS
  begin //ABRE IF-DOIS
    ShowMessage(´O limite de Tentativas de Acesso foi excedido!´); 
    Form_Controle_Acessos.Close; 
  end; //FECHA IF-DOIS
end //FECHA IF-UM
else //NÃO TEM BEGIN, PORTANDO TAMBÉM NÃO TEM END
  Result := True;