ADOQuery的使用出现问题

                            
procedure   TForm6.FormCreate(Sender:   TObject);   
         var   
               s   :   string;   
   begin   
         button1.Enabled   :=   false;   
         button2.Enabled   :=   false;   
         button9.Enabled   :=   false;   
      
         with   PersonnelData.ADOQuery1   do   
         begin   
               close;   
               sql.clear;   
               s   :=   'select   *   from   Preson_info';   
               sql.Add(s);   
               open;   
      
               if   RecordCount   >=1   then   
                     begin   
                           edit1.Text   :=   FieldValues['EmployeeID'];   
                     end   
      
      
      
      
      
   procedure   TForm6.Button3Click(Sender:   TObject);   
   begin   
         PersonnelData.ADOQuery1.Next;   
         edit1.Text   :=   PersonnelData.ADOQuery1.FieldValues['EmployeeID'];   
   end;   
      
   我想在初始化时在edit1中填入第一条记录的信息   
      然后点下一条      edit1再显示下一条记录的信息   
      
   上面的为什么不能达到目的啊         老是说EmployeeID没有找到            是什么原因啊   
            应该怎么做啊