Problem mit Stretchdraw/SaveToFile (Erstellt 0 KB Dateien)

[Chris WF]

Wieso?
Das ist schon richtig so.
Das LoadFromFile ist noch mal vorher.

Delphi-Quellcode:

i := 0;
if SysUtils.FindFirst(Folder + '\*.jpg', faAnyFile, Rec) = 0 then
  try
    repeat
      inc(i);
      setlength(srcpics,i);
      srcpics[i-1] := TPicture.Create;
      srcpics[i-1].LoadFromFile(Folder + '\' + Rec.Name);
    until SysUtils.FindNext(Rec) <> 0;
  finally
    SysUtils.FindClose(Rec);
  end;

//EDIT: Übrigens, das speichern des Orginals im Zielordner funktioniert...