-bidi-font-family: MinionPro-Regular; mso-fareast-language: PT-BR">com alguns nomes de pessoas, logo em seguida crie uma função com o código da Listagem 1.
Listagem 1. Código de busca
function TForm1.Procura(Txt: string): string;
var
iA: Integer;
begin
...