Image from Stream laden?

[OrNEC]

Hm... so muss es richtig sein, nur schlägt es irgendwie fehl...

Delphi-Quellcode:

        // Picture zeigen
        if tb.FieldAsBlob(tb.FieldIndex['picture']) <> nil then
        begin
          ms := TMemoryStream.Create;
          pic := TJPEGImage.Create;

          try
            ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
            ms.Position := 0;

            pic.LoadFromStream(ms);
            Self.DetailsMediaImage.Picture.Graphic := pic;
          finally
            ms.Free; // <--- schlägt fehl
            pic.Free; // hier auch
          end;
        end else DetailsMediaImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'books.jpg');