Nao consigo debugar

Por favor, coloque o codigo do botão e mostre qual linha está tentando debuga. Aconselho a debugar a partir da linha "begin" da procedure do botão.

Segue abaixo o código   procedure TFrmCad1100.OrdenaCampo(sCampo: String);
var s,sCond,sOrd : String;
begin   with dmCadastro do
  begin
      s := 'Select * from CLI_FOR CF '; // Coloquei o BreakPoint aqui       if trim(edConsulta.Text) <> '' then
         sCond := ' where ' + sCampo + ' like ' +
                quotedstr('%' + Trim(edConsulta.text) + '%')
      else sCond := ' where CF.COD_CLIFOR is null ';       sOrd := ' order by ' + sCampo;       if bAsc then
      begin
        sTitAscDesc := ' crescente ';
        sAscDesc    := ' asc ';
      end
      else
      begin
        sTitAscDesc := ' decrescente ';
        sAscDesc    := ' desc ';
      end;       CdsCliFor.Close;
      CdsCliFor.CommandText := '';
      CdsCliFor.CommandText:= s + sCond + sOrd;
      ShowMessage('Sql ' + CdsCliFor.CommandText);
      CdsCliFor.Open;     {
      btnVisualizar.Enabled :=  not CdsCliFor.IsEmpty;
      btnAlterar.Enabled    :=  not CdsCliFor.IsEmpty;
      btnExcluir.Enabled    :=  not CdsCliFor.IsEmpty;
     }
  end;
end;