怎样避免数据修改时的重复？好长时间没搞定！！！ (5分)

procedure TFylzl.SpeedButton3Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') then
begin
application.MessageBox('请输入数据！','提示',mb_ok+mb_iconinformation);
edit1.SetFocus;
abort;
end
else
begin
with Fdm.ylzl do
begin
First;
if (Locate('bh',edit1.Text,[])) then
begin
edit;
edit1.Text:=FieldByName('bh').AsString;
edit2.Text:=FieldByName('ylzl').AsString;
post;
end
else
begin
Edit;
FieldByName('bh').AsString:=edit1.Text;
FieldByName('ylzl').AsString:=edit2.Text;
post;
MessageBox(0,'此条记录修改成功!',pchar(caption),mb_iconinformation+mb_ok);
edit1.SetFocus;
end
end;
end;
end;

up

up

能说清楚点吗！

locate当然慢了。