Dada a função para encontrar um nome em uma...

function TFMain.Busca_Bin(n : longint; nome :________): longint;

var

l,r,k : longint;

meio :_____;

achou :______;

begin

l := 0;

r := n-1;

achou := false;

while(l<=r) and (not achou) do

begin

meio := (l+r)/2;

k:=Trunc(meio);

if( nome=listbox11.items[k] ) then

achou := not achou

else

if( x<listbox11.items[k] ) then

r := k-1

else

l := k+1;

end;

if( achou ) then

Busca_Bin:=k

else

Busca_Bin:= -1;

end;