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;