帮忙检查一下错误

有这样一段代码,运行时出错,不知如何更正:
if  not form1.Table1.Locate('code','abc',[]) then//loCaseInsensitive表示不区分大小写
begin
form1.table1.edit
form1.table1.fieldbyname('code').asstring:=trim(form3.Edit1.text)
form1.table1.fieldbyname('name').asstring:=trim(form3.Edit2.text)
form1.table1.fieldbyname('gender').asstring:=trim(form3.Edit3.text)
form1.table1.fieldbyname('honor').asstring:=trim(form3.Edit4.text)
form1.table1.post
end
else
application.MessageBox('此编号库中已经存在!','提示窗口',mb_iconinformation+mb_ok);
close;
end;