image载入流后图片错误

Delphi(Pascal) code

procedure TMainFrm.btn2Click(Sender: TObject);var  MS: TMemoryStream;begin  MS := TMemoryStream.Create;  with tbl1 do  begin    TBlobField(FieldByName('u_Portrait')).SaveToStream(MS);  end;  img1.Picture.Bitmap.LoadFromStream(MS);  img1.Picture.Bitmap.SaveToFile('C:\Users\FKY\Desktop\123.bmp');  MS.Free;end;上面这个123.bmp打开后图片错误,而且ima1也显示不了而下面的就正常,请问哪里错了?procedure TMainFrm.btn3Click(Sender: TObject);var  MS: TMemoryStream;begin  MS := TMemoryStream.Create;  with tbl1 do  begin    TBlobField(FieldByName('u_Portrait')).SaveToStream(MS);  end;  MS.SaveToFile('C:\Users\FKY\Desktop\123.bmp');  MS.Free;end;

[解决办法]
MS.Position:=0;
img1.Picture.Bitmap.LoadFromStream(MS);