Picture aus String laden

[mkmk]

Zitat von SirThornberry:

ich habe gerade noch etwas gesehen. Neben dem Jpeg gibst du auch den Stream nicht frei.
Kannst du nochmal den aktuellen Quelltext posten?

Delphi-Quellcode:

//==============================
//  ListView1 Click
//==============================
procedure TForm1.ListView1Click(Sender: TObject);
  var nPictNr : Integer;
      cBild   : String;
      TmpJpg  : TJPEGImage;
      strStream : TStringStream;
begin
  nPictNr := StrToInt(ListView1.Items[ListView1.ItemIndex].Caption);
//   ListView.Items[ListView1.ItemIndex].SubItems[0] waere 2. Spalte

  cBild := MyComPort.SendPicture(nPictNr,  ProgressBar1);
  if cBild <> '' then begin
    strStream := TStringStream.Create(cBild);
    TmpJpg := TJPEGImage.Create;
    TmpJpg.LoadFromStream(strStream);
    Form1.Image1.Picture.Assign(TmpJpg);
    TmpJpg.Free;
  end;
end;

Noch eine Frage: warum muss ich TmpJpg.free schreiben? Ist TmpJpg nicht eine locale Variable?

Edit: Try-Finaly herauskommentiert, weil noch fehlerhaft.