使用TBlobField.BlobType,如下:
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    TBlobField(YourImageField).SaveToStream(MS);
    // Must reset to the beginning of the stream
    MS.Position := 0;
    Image1.Picture.Bitmap.LoadFromStream(MS);
  finally
    MS.Free;
  end;end; 
 
参见:
http://www.csdn.net/expert/topic/616/616539.xml?temp=.1332209