为什么最后一个字符串不能插入到表中?

Question

一个文本文件是这样的
王小栓
张大中
要将他们插入到ACCESS表中，但是用我下面的程序就只能插入王小栓,而不能插入张大中,请问为什么？unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Db, ADODB, StdCtrls;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  //===================access
 SecConstr:wideString;
 SecCnn:TADOConnection;
 SecDataSet:TADODataSet;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  SecConStr:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=' + ExtractFilePath(Application.ExeName) + '\TEST.mdb;Persist Security Info=True';
SecCnn:=TADOConnection.Create(nil);
SecCnn.LoginPrompt:=false;
SecDataSet:=TADODataSet.Create(nil);
//打开access连接
 Seccnn.ConnectionString:=SecConstr;
 SecCnn.Open;
end;procedure TForm1.Button1Click(Sender: TObject);
var 
  F: TextFile;
  ID: String[8];
  Name: String[8];
begin  //有问题的地方
 SecDataSet.Connection:=SecCnn;
 SecDataSet.CommandText:='select * from hou';
 SecDataSet.Open;
  AssignFile(F,'table.txt');
  Reset(F);
    while not Eof(F) do
    begin
      Readln(F,NAME);
        SecDataSet.Append;  
        SecDataset.Fields[1].AsString:=Name;
    end;
    CloseFile(F);
end;
end.

Answer 1

//有问题的地方
 SecDataSet.Connection:=SecCnn;
 SecDataSet.CommandText:='select * from hou';
 SecDataSet.Open;
  AssignFile(F,'table.txt');
  Reset(F);
    while not Eof(F) do
    begin
      Readln(F,NAME);
        SecDataSet.Append;  
        SecDataset.Fields[1].AsString:=Name;
                                             //////这要 post 啊
    end;
    CloseFile(F);
end;
end.