//显示图片
if tempquery.FieldByName('theme_image').isnull then
begin
ThemeImage.Picture.Graphic:=nil;
end
else
begin
(tempQuery.FieldByName('theme_image') as tblobfield).savetostream(MS_JpegStream);
ThemeImage.Picture.Graphic:=nil;
ThemeImage.Picture.Graphic:=TJpegImage.Create;
MS_JpegStream.Position:=0;
ThemeImage.Picture.Graphic.LoadFromStream(MS_JpegStream);
end;