把BMP,JPG图片保存到sqlserver2000数据库中及从数据库中取出来显示在iamge上.(200分)

各位大哥请救救小弟，小弟初学delphi遇到难题做不出了。快不行了。老板推的急。快救救我吧!小弟实是感激尽。

//读取BMP
procedure TForm1.Button1Click(Sender: TObject);
var
MS: TMemoryStream;
begin
MS:= TMemoryStream.Create;
try
TBlobField(ADOQuery1.FieldByName('aaa')).SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;
end;

//保存BMP
procedure TForm1.Button2Click(Sender: TObject);
var
MS: TMemoryStream;
begin
MS:= TMemoryStream.Create;
try
Image1.Picture.Bitmap.SaveToStream(MS);
TBlobField(ADOQuery1.FieldByName('aaa')).LoadFromStream(MS);
finally
MS.Free;
end;
end;

JPG的话就先转成BMP，再显示
function Jpg2Bmp(JpegImage: TJpegImage; Bitmap: TBitmap): Boolean;
begin
result := false;
if (not Assigned(Bitmap)) or (not Assigned(JpegImage)) then exit;
Bitmap.Assign(JpegImage);
result := not result;
end;

正解

谢谢！　drjr大哥，可能我还是不能在DBimage控件上显示jpg图片啊！