O código seguinte está sintaticamente correto e implementa a busca seqüencial de um string associado à variável chamada "aName", em um array de strings associado ao array chamado "aStrs". Para que o algoritmo de busca esteja corretamente implementado, é necessário que a variável "aCount" contenha o tamanho do array de string "aStrs"

function SeqSearch(aStrs : PStringArray; aCount : integer; const aName : string5) : integer;

var

i : integer;

begin

for i := 0 to pred(aCount) do

if CompareText(aStrs^[i], aName) = 0 then begin

Result := i;

Exit;

end; Result := -1;

end;