ADOTable添加的问题

为什么我的添加会在第一行多出一条空白的记录。麻烦高手看看！假如不点添加的话会出现问题，
procedure TGL_main_ZYJM_Edit.AddClick(Sender: TObject);//添加按钮
begin
  Add.Enabled:=False;
  ModButton.Enabled:=False;
  Save.Enabled:=True;
  ADOTable1.Append;
end;procedure TGL_main_ZYJM_Edit.SaveClick(Sender: TObject);//保存按钮的资料
Var
  I:Integer;
  S1,S2:String;
begin
   IF memo1.Text='' Then
     begin
    If MessageDlg('请输入客户姓名',mtwarning,[mbYes,mbNO],0)=IDYES Then
     begin
       GL_main_ZYJM_Edit.memo1.Setfocus;
     end;
     end
     else
       begin
    S1:=Edit1.Text;
     S2:=DBEdit4.Text;
     if (ADOTable1.locate('GS',trim(edit1.text),[loPartialKey])) then
       begin
          if messagedlg('单位名称有重复是否先查询再输入？',mtwarning,[mbYES,MBNO],0)=IDYES then
            begin
              GL_main_ZYJM_CX.show;
              GL_main_ZYJM_CX.edit4.Text:=edit1.text;
            end
          else
            begin
              for I:=0 to memo1.Lines.count-1 do
                begin
                   ADOTable1.Append;
                   ADOTable1.FieldByName('name').Asstring:=memo1.Lines.Strings[i];
                   ADOTable1.FieldByName('mobile').Asstring:=memo2.Lines.Strings[i];
                   ADOTable1.FieldByName('telephone').Asstring:=memo3.Lines.Strings[i];
                   ADOTable1.FieldByName('e_mail').Asstring:=memo4.Lines.Strings[i];
                   ADOTable1.FieldByName('sex').Asstring:=memo5.Lines.Strings[i];
                   ADOTable1.FieldByName('gs').Asstring:=S1;
                   ADOTable1.FieldByName('bz').Asstring:=S2;
                   ADOTable1.Edit;
                   ADOTable1.Post;
                end;
                   showmessage('提交已经完成！');
                   Save.Enabled:=True;
                   ADD.Enabled:=False;
                   memo1.Text:='';
                   memo3.Text:='';
                   memo2.Text:='';
                   memo4.Text:='';
                   memo5.Text:='';
                   edit1.Text:='';
                   dbedit4.Text:='';
            end;
       end
     else
        begin
          for I:=0 to memo1.Lines.count-1 do
                begin
                   ADOTable1.Append;
                   ADOTable1.FieldByName('name').Asstring:=memo1.Lines.Strings[i];
                   ADOTable1.FieldByName('mobile').Asstring:=memo2.Lines.Strings[i];
                   ADOTable1.FieldByName('telephone').Asstring:=memo3.Lines.Strings[i];
                   ADOTable1.FieldByName('e_mail').Asstring:=memo4.Lines.Strings[i];
                   ADOTable1.FieldByName('sex').Asstring:=memo5.Lines.Strings[i];
                   ADOTable1.FieldByName('gs').Asstring:=S1;
                   ADOTable1.FieldByName('bz').Asstring:=S2;
                   ADOTable1.Edit;
                   ADOTable1.Post;                end;
                   showmessage('提交已经完成！');
                   Save.Enabled:=True;
                   ADD.Enabled:=False;
                   memo1.Text:='';
                   memo3.Text:='';
                   memo2.Text:='';
                   memo4.Text:='';
                   memo5.Text:='';
                   edit1.Text:='';
                   dbedit4.Text:='';
        end;
   end;
end;