Delphi 显示数据库中的图片

uses jpeg,DB;

function GetFieldImg(Field: TField):TJPEGImage;
var
  MS:TMemoryStream;
begin
    Result:=TJPEGImage.Create;
    MS:=TMemoryStream.Create;
    TBlobField(Field).SaveToStream(MS);
    Ms.Position   :=0;
    Result.LoadFromStream(Ms);
    MS.Free;
end;