Streams

[Prototypjack]

Entschuldigung.
Ich ahbe vergessen zu erwähnen das die Showmessage die 'Test' enthält nicht ausgegeben wird also liegt der Fehler zwangsläufig hier:

Delphi-Quellcode:

        FileToAdd.OnProgress := FileAddProgress;
        fs.CopyFrom(FileToAdd, FileToAdd.Size);