Zitat:
if i = lvOrganisation.Items.Count -1 then exit;
Wozu?
Warum nicht
for i := 0 to lvOrganisation.Items.Count - 2 do
?
Zitat:
if CompareFile(FileName1, FileName2) = True then
Sowas macht man nicht!
if CompareFile(FileName1, FileName2) then
Ein Therapeut entspricht 1024 Gigapeut.