@mashutu:
Du solltest daran denken, noch am Ende der Methode das hier mal aufzurufen, sonst hast Du da ein kleines Speicherleck
FindClose(sr);
Zitat aus Delphi-Hilfedatei:
Zitat:
Die Prozedur gibt den mit FindFirst zugewiesenen Speicher frei.
FindClose beendet eine FindFirst/FindNext-Aufruffolge.