大家好,我有个问题好难呀!(5分)

我有一个table1 table2两个表一个source与table1相关联,在一个窗口中一个dbgrid与source相关联
我在后台作如下操作
procedure TForm_input.Button13Click(Sender: TObject);

var
count,i,pos:integer;
str:string;
begin
with dm do
begin
gz1.Active:=true;
str:=kp.FieldValues['da_num'];
if not gz1.Locate('da_num',str,[loCaseInsensitive]) then
begin
ShowMessage('ûÓмǼ¿É±»É¾³ý£¡');
exit;
end;


gz1.SetKey;
gz1.FieldByName('sj_num').AsString:=gz.FieldByName('sj_num').AsString;
gz1.GotoKey;

pos:=gz.FieldByName('sj_num').AsInteger;
count:=gz1.RecordCount-1;
gz1.Delete;

for i:=pos to count do
begin
gz1.Edit;
gz1.FieldByName('sj_num').AsString:=IntToStr(i);
gz1.Next;
end;

gz.Refresh;
gz1.Refresh;
gz1.Active:=False;
end;
end;
可是表gz1中的sj_num没有变为什么,并且删除的是每一条记录,并不是选中的记录为什么.