从数据库中存入打开JPGE图片,图片失真、漏色的问题？

[5556667]

从数据库中存入打开JPGE图片,图片失真、漏色的问题？
图片显示时图片会有部分丢失现象,比如当有大片颜色时,颜色部分会出现一些漏点,漏出PICTURE控件的底色，图片的一些区域好像是被漏空，少了几块一样，这是什么原因造成的，要怎么解决？
存入图片的代码：
procedure Twlform.Button6Click(Sender: TObject);
var
myjpeg : tjpegimage;
ms : tmemorystream;
begin
openpicturedialog1.Execute ;
if openpicturedialog1.FileName <> '' then
begin
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
openpicturedialog1.FileName :='';
myjpeg := tjpegimage.Create ;
try
with myjpeg do
begin
assign(image1.Picture.graphic);
ms:=tmemorystream.Create ;
savetostream(ms);
ms.Position := 0;
DataModule2.adotable1.edit;
tblobfield(DataModule2.adotable1.FieldByName('tp') ).LoadFromStream(ms);
DataModule2.adotable1.Post;
messagebox(getactivewindow() , '图像保存完毕!' , '保存' , mb_ok);
image1.Picture.CleanupInstance ;
end;
finally
myjpeg.free;
end;
end;
end;

打开图片的代码：

procedure Twlform.DBGrid2DblClick(Sender: TObject);
var
tempstream : tstringstream;
tempjpeg : tjpegimage;
begin
if datamodule2.DataSource1.DataSet.FieldByName('tp').AsString = '' then
begin
tpform.Image1.Picture.Assign(nil);
tpform.Image1.Canvas.Font.Size := 15;
tpform.Image1.Canvas.TextOut(20,20,'暂无图片') ;

end
else
begin
try
tempstream := tstringstream.Create('');
tblobfield(DataModule2.DataSource1 .DataSet.FieldByName('tp')).SaveToStream(tempstream);
tempstream.Position := 0;
tempjpeg := tjpegimage.Create ;
tempjpeg.loadfromstream(tempstream);
tpform.image1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.free;
tempjpeg.free;
end;
end;