Dateien auslesen und nach größe in andere Ordner packen?

[DeMoehn]

Vielen Dank für die flotte Antwort.

Werde mit das Ganze morgen einmal ansehen und ggf. dann wieder nachhaken falls etwas unklar ist oder ein Ergebnis posten.

Thx, DeMoehn

EDIT:

Ich versuche das ganze via

Delphi-Quellcode:

var
  jpg: TJPEGImage;

zu deklarieren allerdings kommt immer der Fehler: "[Fehler] secureU.pas(32): E2003 Undefinierter Bezeichner: 'TJpegImage'"