保存-读取图片

procedure TForm1.btn1Click(Sender: TObject);
var
  str1 : TMemoryStream;
begin
//qry1.SQL.Add('alter table d_Goods add pic image null');
//qry1.ExecSQL;
 str1 := TMemoryStream.Create;
 try
    if dlgOpenPic1.Execute then
    begin
       Str1.LoadFromFile (dlgOpenPic1.FileName);
       qry1.Active := true;
       str1.Position := 0;
       qry1.Append;
       (qry1.FieldByName('pic') as TBlobField).LoadFromStream(str1);

       qry1.Post;
       qry1.Close;

    end;


 except
  str1.Clear;
 end;

end;