@ baumina
stimmt kein Wunder das es da crashed.
Ich würde nur den Code der sich zwischen den beiden Versionen unterscheidet in der Fallunterscheidung getrennt verwenden.
In der 1. Bedingung fehlt das FindFirst()
if Checkbox1.Checked then
reicht
Jetzt steh ich auf dem Schlauch, was meinst du mit trennen?