Problem beim Ersetzen von Inhalten mit 2 Listboxen

[Svenkan]

Kann sein, dass es grad ein bisschen spät ist, aber das hier gibt mir den gleichen Fehler aus (hab das wegen der Uhrzeit auch nur schnell zur Probe zusammengebastelt!):

Delphi-Quellcode:

function FachLang(memo: TMemo;fach: String; erlaubt: Boolean; listbox_kurz,listbox_lang: TListBox): String;
var li, str_laenge: Integer;
    fach_liste: String;
begin
  if erlaubt then begin
  str_laenge := Length(fach);
    for li := 0 to listbox_kurz.Count -1 do begin
      ///if  ansipos(ansilowercase(fach),ansilowercase(listbox_kurz.Items.Strings[li]))
      ///= 1 then
      fach_liste:=listbox_kurz.Items.Strings[li];
      SetLength(fach_liste,str_laenge);
      if (fach=fach_liste) then
        Result:=listbox_lang.Items.Strings[li];

      memo.Lines.Add(ansilowercase(fach)+'='+ansilowercase(fach_liste));
    end
  end
  else
    Result := fach;
end;