reshup

for I := 0 to fFilesCount-1 do fProgress := (((I+1) / (fFilesCount)) * 100); 0->100 should be ok. TProgressBar does not allow more than "Single" anyway. then have a Label saying the current fFilesCount value or something

Code-Snippet i got from a friend long ago might be useful ? //From: BoB Team-PEiD Function GetPolyCrc32(Address : Pointer; Size : DWord) : DWord; Asm // input: EAX=data, EDX=size PushAD XChg EAX, EDX // EDX = Address .. XChg EAX, ECX // ECX = Size .. // Mov EDX, Buffer // Mov ECX, NumBytes Xor EAX, EAX // input: EDX=data, ECX=size, EAX=crc // output: EAX=crc, EDX+=ECX, ECX=BL=0 Jecxz @L4 Not EAX @L1: Xor AL, [EDX] Inc EDX Mov BL, 8 @L2: Shr EAX, 1 Jnc @L3 Xor EAX, $EDB88320 @L3: Dec BL Jnz @L2 Loop @L1 Not EAX @L4: Mov [ESP + PushAD_EAX], EAX PopAD End;