acentuação

[b:a87aff012a]var[/b:a87aff012a]
caracteresacentuados : [b:a87aff012a]set[/b:a87aff012a] [b:a87aff012a]of[/b:a87aff012a] char = [#192..255]

[b:a87aff012a]function[/b:a87aff012a] [color=orange:a87aff012a]tiraacetos(text : [b:a87aff012a]string[/b:a87aff012a]) [/color:a87aff012a]: [b:a87aff012a]string[/b:a87aff012a];
[b:a87aff012a]var[/b:a87aff012a]
i : integer;
[b:a87aff012a]begin[/b:a87aff012a]
result := ´´
[b:a87aff012a]for[/b:a87aff012a] i := 0 [b:a87aff012a]to[/b:a87aff012a] length(text) [b:a87aff012a]do[/b:a87aff012a]
[b:a87aff012a]begin[/b:a87aff012a]
[b:a87aff012a]if[/b:a87aff012a] text[i] in caracteresacentudos [b:a87aff012a]then[/b:a87aff012a]
result := result + ´_´
[b:a87aff012a]else[/b:a87aff012a]
result := result + text[i];
[b:a87aff012a]end[/b:a87aff012a];
[b:a87aff012a]end[/b:a87aff012a];
[b:a87aff012a]
whith[/b:a87aff012a] query [b:a87aff012a]do[/b:a87aff012a]
[b:a87aff012a]begin[/b:a87aff012a]
close;
SQL.clear;
SQL.add(select * from tabela where nome like ´¬´ + [color=orange:a87aff012a]tiraacentos(editpesquisar.text)[/color:a87aff012a] +´¬´´);
open;
[b:a87aff012a]end[/b:a87aff012a];

[color=#888888:a87aff012a]explicando o código:
é simples, o caracter ´_´ funciona como curinga, assim , a função substitui todos os caracteres acentuados por ´_´, quando se executa a pesquisa, retorna-se valores com ou sem acento.
Ex:
João = Jo_o [/color:a87aff012a]

eu quero contrario
procurar por joao
e me retornar todos os joão