请教各位大师一个问题？以下代码总是出错，请多多指正，谢谢！！！

uses Jpeg;procedure TForm1.Button1Click(Sender: TObject);
var
  JpegImage: TJpegImage;
begin
  if OpenDialog1.Execute then
    if LowerCase(OpenDialog1.FileName) = '.jpg' then
    begin
      JpegImage := TJpegImage.Create;
      JpegImage.LoadFromFile(OpenDialog1.FileName);
      DBImage1.Picture.Graphic := JpegImage;
      JpegImage.Free;
    end
    else
      DbImage1.Picture.LoadFromFile(OpenDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if FileExists(OpenDialog1.FileName) then
  begin
    Query1.Append;
    TBlobField(Query1.FieldByName('picture')).LoadFromFile(OpenDialog1.FileName);
    Query1.Post;
  end;
end;