Fórum Ajuda em uma Função que checa se foi cadastrado um Advogado #430176

function TFrmCadAtos.ChecaAdvogado(sLivro : String; sFolha : String; sTermo : String; tipocentral :String) : String;
var QueryAdvogado : TQuery;
begin
QueryAdvogado := TQuery.create(application);
QueryAdvogado.DatabaseName := 'SisRecurso';
QueryAdvogado.SessionName := 'default';
QueryAdvogado.Close;
QueryAdvogado.SQL.Clear;
QueryAdvogado.SQL.add('SELECT * FROM DoiAtos ');
QueryAdvogado.SQL.Add(' WHERE Livro =' +QuotedStr(sLivro)+ ' AND FolhaIni =' +QuotedStr(sFolha)+ ' AND Ordem =' +QuotedStr(sTermo)+ 'AND testatipocentral =' +QuotedStr(tipocentral));
QueryAdvogado.Prepare;
QueryAdvogado.Open;

QueryAdvogado.First;
while not(queryAdvogado.Eof) do
begin
if (QueryAdvogado.FieldByName('CESDQUALIDADE').AsString = 'ADVOGADO(A)') then
begin
Result := 'S';
break;
end
else
Result := 'N'
;
QueryAdvogado.Next;
end;
QueryAdvogado.close;
end;

essa é a função que filtra onde os registros de livro, folha e termo são iguais, se um dos registros tem advogado.
mas, com os meus testes mesmo cadastrando um advogado quando cai no IF, ele não esta trazendo nada, que por sua vez
considera que não existem advogados nos registros selecionados.
Alguém poderia me ajudar?