Delphi-Quellcode:
dateiname:=s.strings[n];
tEncrypt := TEncryptionThread.Create(true);
tEncrypt.Suspended:=True;
//...
tEncrypt.Resume;
Das geht schief...
Du rufst Suspend 2mal auf (1. mal bei Create mit true als Parameter), dann mußt du auch resume 2mal aufrufen, damit der Thread ausgeführt wird.
Übrigens soll Suspend laut Windows
API nicht zur Thread-Synchronisation verwendet werden.