Create von Kompos und Schleifen

[Brainstalker]

Da mein anderer Thread nicht zu dem gewünschten Ergebnis geführt hatte, erstelle ich einen neuen. In diesem versuche ich das Problem anders anzugehen und gleichzeitig Codefragen beantworten zu lassen.

In meinem anderen Thread ging es um ein Problem mit TThread und TJpegImage bzw. TBitmap. Also habe ich jetzt mal fragen zu folgendem Code:

Delphi-Quellcode:

var
  Bitmap: TBitmap;
  Jpg: TJpegImage;

begin
  Bitmap := TBitmap.Create;
  Jpg := TJpegImage.Create;

  for i := 0 to wasweißich do begin
    Bitmap.LoadFromFile...
    Jpg.Assign(Bitmap);
    Jpg.SaveToFile...
  end;

  Bitmap.Free;
  Jpg.Free;

Der Code funktioniert im Hauptthread, aber nur selten im eigenen Thread ohne Fehler.

Folgender Code scheint auch im Thread zu funktionieren:

Delphi-Quellcode:

var
  Bitmap: TBitmap;
  Jpg: TJpegImage;

begin
  for i := 0 to wasweißich do begin
    Bitmap := TBitmap.Create;
    Jpg := TJpegImage.Create;

    Bitmap.LoadFromFile...
    Jpg.Assign(Bitmap);
    Jpg.SaveToFile...

    Bitmap.Free;
    Jpg.Free;
  end;

Jetzt möchte ich gerne wissen welche Vor- und Nachteile es bei den beiden Codes gibt.
Welcher is programmiertechnich besser und welcher ist eher "dirty"?

Würd mich über Antworten freuen, da es mich zum einen so interessiert und möglicherweise eben auch mein Problem löst.

MfG
Brainstalker