存一个图像到数据库中

Question

procedure TForm1.saveClick(Sender: TObject);
begin
      graphic1:=tgraphic.create;  //报错，为什么
　　　graphic1.loadfromfile(opendialog1.filename);
　　　table1.insert;
　　　table1.fields[2].assign(graphic1);
　　　table1.post;
　　　graphic1.free;
end;

Answer 1

procedure TForm1.saveClick(Sender: TObject);
var graphic1:tgraphic;----
begin
      graphic1:=tgraphic.create;  //报错，为什么
　　　graphic1.loadfromfile(opendialog1.filename);
　　　table1.insert;
　　　table1.fields[2].assign(graphic1);
　　　table1.post;
　　　graphic1.free;
end;

Answer 2

[Error] Unit1.pas(57): Illegal character in input file: '　' ($A1A1)

Answer 3

var graphic1:TJPEGImage;
graphic1:=tjpegimage.Create;