保存的问题已经解决，现贴出代码供大家参考，现在的问题是如何在dbgrid中显示
出图形，或者有没有这方面的第三方控件，请提供下载地址。
var
a:TMemoryStream;
begin
a:=TMemoryStream.Create;
Image1.canvas.pen.color:=clyellow;
Image1.canvas.pen.width:=2;
Image1.canvas.MoveTo(10,50);
Image1.canvas.lineto(110,50);
image1.Picture.Bitmap.SaveToStream(a);
if not adotable1.Active then
adotable1.Active:=true;
adotable1.Append;
(adotable1.FieldByName('PICT') as TBlobField).loadfromstream(a);
adotable1.Post;
end;
