procedure TfPrincipal.Deletar1Click(Sender: TObject);
    var deletar:string;
begin
     // captura o numero do telefone a ser deletado
     deletar:= gridver.Cells[1,gridver.Row];
    
     //confirma se deseja deletar ou não:
     if messagedlg('Deseja realmente remover o telefone ' + deletar,mtConfirmation,[mbYes,mbNo],0)=mrYes then
     begin
        sql.SQL.Text:= 'delete from telefones where agenda_tel = ' + quotedstr(deletar);
        //sql.Open;
        sql.ExecSQL(True);
        verdados(1);
     end;
end;