图片存取(20分)

procedure Ttianjiafrm.Button3Click(Sender: TObject);
var
tpstream:tmemorystream;
jpegfile:tjpegimage;
begin
if edit1.Text=' ' then
showmessage('菜名不能为空！');
with datamodule1.ADOQrytianjia do
begin
connection:=datamodule1.ADOConnection1;
close;
sql.Clear;
sql.Add('insert into 菜谱表 (菜名,菜系,功能,味道,主料类别,烹调类别,适合人群,适宜季节) values A,:B,:C,,:E,:F,:G,:H)');
Parameters.ParamByName('A').Value:=edit1.Text;
if combobox4.Text=' ' then
datamodule1.ADOQrytianjia.FieldByName('菜系').IsNull
else
Parameters.ParamByName('B').Value:=combobox4.Text;
if combobox1.Text=' ' then
datamodule1.ADOQrytianjia.fieldbyname('功能').IsNull
else
Parameters.ParamByName('C').Value:=combobox1.Text;
if combobox5.Text=' ' then
datamodule1.ADOQrytianjia.fieldbyname('味道').IsNull
else
Parameters.ParamByName('D').Value:=combobox5.Text;
if combobox2.Text=' ' then
datamodule1.ADOQrytianjia.fieldbyname('主料类别').IsNull
else
Parameters.ParamByName('E').Value:=combobox2.Text;
if combobox6.Text=' ' then
datamodule1.ADOQrytianjia.fieldbyname('烹调类别').IsNull
else
Parameters.ParamByName('F').Value:=combobox6.Text;
if combobox3.Text=' ' then
datamodule1.ADOQrytianjia.fieldbyname('适合人群').IsNull
else
Parameters.ParamByName('G').Value:=combobox3.Text;
if combobox7.Text= ' ' then
datamodule1.ADOQrytianjia.fieldbyname('适宜季节').IsNull
else
Parameters.ParamByName('H').Value:=combobox7.Text;
execsql;
if image1.Picture.Graphic<>nil then
begin
close;
sql.Clear;
sql.Add('select * from 菜谱表 where 菜名=:I');
Parameters.ParamByName('I').Value:=edit1.Text;
open;
append;
tpstream:=tmemorystream.Create;
jpegfile:=tjpegimage.Create;
jpegfile.Assign(image1.Picture.Graphic);
jpegfile.SaveToStream(tpstream);
tpstream.Position:=0;
tblobfield(fieldbyname('图片')).LoadFromStream(tpstream);
jpegfile.Free;
tpstream.free;
post;
end;
close;
sql.Clear;
sql.Add('select * from 菜谱表 ');
open;
mainfrm.OnShow(sender);
end;
tianjiafrm.Close;
end;
我在添加一条记录后，图片存取会在下一行，谁能改改啊。。

把append;改为
Last;
Edit;

last;
edit;
和 append有什么区别啊