Moin Lukas,
ich hätte da ein paar Verbesserungsvorschläge
Bei FindFirst prüfst Du nicht, ob der Aufruf erfolgreich war.
Resourcenschutzblock fehlt.
TStrings würde ich nicht als Rückgabewerte nehmen, sondern als Parameter übergeben. Als Rückgabewert einer Funktion handelt man sich zu leicht ein Speicherleck ein.