Rückgabewert der Funktion undefiniert

[nat]

ja, das was ich oben geschrieben habe kannst du als ersatz für deine schonda funktion nehmen.
wenn du jetzt sowas wievorhanden := schonda(dateiname); hast, dann
kannste das durch vorhanden := Listbox1.Items.IndexOf(dateiname) >= 0; ersetzen.
guck dir in der hilfe ma an, was indexof macht.
und das mit den vergleichen in einer zuweisung: ein vergleich ergibt doch einen boolschen wert.
diesen kannste natürlich auch einer boolschen variable zuweisen!