procedure TfPrincipal.butFecharClick(Sender: TObject);
begin
    if messagedlg('Deseja realmente fechar esse programa?', mtConfirmation,[mbYes,mbNo],0)=mrYes then
    begin
       Application.Terminate;
    end;
end;

procedure TfPrincipal.butInsClick(Sender: TObject);
    var nome, tel: string; //Aqui eu declaro as variaveis que vou usar para os dados
    erro: integer; //Essa variável vou usar como controle de erros
    begin
    //Capturando os valores e jogando nas variaveis
    nome:= trim(edtNome.Text);
    tel:= trim(edtTel.Text);
    erro:= 0;
    
    //verificando se a variavel nome está vazia ou não:
    //se estiver vazia, dou valor 1 para o erro, uma mensagem é exibida e o programa não acessa o mysql.
    if (nome='') then
       begin
          ShowMessage('Você precisa digitar um nome!');
          erro:= 1;
       end;

    //verificando se a variavel tel está vazia ou não:
    //se estiver vazia, dou valor 1 para o erro, uma mensagem é exibida e o programa não acessa o mysql.
    if (tel='(  )    -') then
        begin
           ShowMessage('Você precisa digitar um telefone!');
           erro:= 1;
        end;
    
    //verificando se houve erro na validação. Se houve não faz nada
    // Se não houve erro, prossegue com o mysql.
    if (erro=0) then
        begin
        //criando a string MySQL. é necessário o uso da função quotedstr() para inserir as aspas simples nos valores.
           sql.SQL.Text:= 'INSERT INTO telefones (agenda_id, agenda_nome, agenda_tel) VALUES (0,'+quotedstr(nome)+', '+quotedstr(tel)+')';
           //executando a string:
           sql.ExecSQL(True);
           //limpando os edits:
           edtNome.Text:= '';
           edtTel.Text:= '';
           // informando o sucesso da operação:
           showmessage('Cadastrado com sucesso!');
        end;
    end;