DELPHI中对于数据库中的图形显示 (100分)

数据库中有JPEG,GIF格式的图形
问如何取出来显示它?
还要解决GIF并且要区分JPEG和GIF图形

// 存储 JPG 图片到数据库 ， 同时显示在 FOOTIMAGE 控件上 FootImage:TImage
var
tempStream:TMemoryStream;
JpgPic:TJpegImage;

S:String;
begin
try
JpgPic:=TJpegImage.Create;
tempStream:=TMemoryStream.Create;
tempStream.Clear;
Table.Edit;
JpgPic.LoadFromFile(OpenDialog.FileName);
FootImage.Picture.bitmap.assign(JpgPic);
JpgPic.SaveToStream(tempStream);
TBlobField(Table.FieldByName('图象')).LoadFromStream(tempStream) ;
Table.Post;
finally
JpgPic.Free;
tempStream.Free;
end;
end;

// 显示数据库中的 JPG 图象 ，FootImage : TImage
var
MyJpeg:TJpegImage;
MyStm:TMemoryStream;
begin

if not Table.FieldByName('图象').IsNull then
begin
try
MyJpeg:=TJpegImage.Create;
MyStm:=TMemoryStream.Create;
MyStm.Clear;
TBlobField(Table.FieldByName('图象')).SaveToStream(MyStm);
MyStm.Position:=0;
MyJpeg.LoadFromStream(MyStm);
FootImage.Picture.BitMap.Assign(MyJpeg);
finally
MyJpeg.Free;
MyStm.Free;
end;

end;

还要解决GIF并且要区分JPEG和GIF图形

1.如果你要很快的速度的话，请用ADO，不要用BDE