Create von Kompos und Schleifen

[Union]

Also bei mir funktioniert folgender Code einwandfrei:

Delphi-Quellcode:

procedure TMyThread.Execute;
var
   bmp : TBitmap;
   jpg : TJPEGImage;
   sr : TSearchRec;
begin
   if FindFirst('c:\temp\*.bmp', faAnyFile, sr) = 0 then
   begin
      bmp := TBitMap.Create;
      try
         jpg := TJPEGImage.Create;
         try

            repeat
               Filename := 'c:\temp\'+sr.Name;
               bmp.LoadFromFile(FileName);
               jpg.Assign(bmp);
               jpg.SaveToFile(ChangeFileExt(FileName, '.jpg'));
            until FindNext(sr) <> 0;

         finally
            jpg.Free;
         end;
      finally
         bmp.free;
      end;
   end;
end;

In c:\temp habe ich wahllos 13 Bitmaps mit einer Gesamtgröße von 1.5 MB kopiert...