Komisches Verhalten beim Listbox durchsuchen

[XXcD]

Hallo,
ich schreibe gerade einen kleinen HTTPServer, dort möchte ich feststellen ob das Request Dokument in einer Listbox steht.

Hier mal der Code zum durchsuchen:

Delphi-Quellcode:

function inlist(list: TListbox; Request: string): Boolean;
var
  I: Integer;
begin
  I := List.Items.IndexOf(Request);
  if I >= 0
  then
  begin
  Result:=true;
  end
  else
  begin
  Result:=false;
  end;
end;

Und in CommandGet hab ich folgendes:

Delphi-Quellcode:

  if inlist(Form2.ListBox1, RequestedDocument)=true then
  begin
  Log(RequestedDocument);
  end
  else
  begin
  Log(RequestedDocument);
 RequestedDocument :='index.html';
  end;

Ich habe ein Bild angehängt da sieht man den Fehler der beim Schließen des programms auftritt.