binäre Suche... Ich bin echt grad' zu blöd

[yankee]

Es ist zwar schon etwas peinlich, aber ich bin gerade an einem der simpelsten Prinzipien der Informatik am scheitern: Bei der binären Suche.
Ich habe einen Array aus:

Delphi-Quellcode:

  TVarManEntry =record
    name: string;
    data: TLeanoVar;
  end;

Bei der ich auf einzelne Elemente per name zugreifen will und zu Geschwindigkeitszwecken den Array nach name sortiere.
Hier ist zum Beispiel meine procedure, die einen Eintrag erneuern soll, bzw. bei nicht-Existenz einen Eintrag anlegen soll:

Delphi-Quellcode:

procedure TVarManager.setVar(const key: string; val: TLeanoVar);
var hi,lo,cur,i: integer;
begin
  hi :=length(FVars);
  lo :=0;
  cur :=0;
  while (hi >=lo) do
  begin
    cur :=(hi+lo) div 2;
    if FVars[cur].name > key then lo :=cur+1
    else if FVars[cur].name < key then hi :=cur-1
    else
    begin
      FVars[cur].data.Free;
      Fvars[cur].data :=val;
      exit;
    end;
  end;
  setlength(FVars, length(FVars)+1);
  for i:=length(FVars)-1 downto cur+1 do FVars[i] :=FVars[i-1];
  FVars[cur].name :=key;
  FVars[cur].data :=val;
end;

FVars ist das Array.
Ich habe da jetzt immer wieder dran rumgespielt und die procedure wurde wahrscheinlich nur falscher und falscher und jetzt bin ich schon so frustriert, dass ich bereit bin mir die Blöße zu geben undn öffentlich nach Hilfe zu fragen .

F1!