程序贴出来看一下

你得添加过程啊

在主窗体的TYPE下面添加过程，作为声名此过程，然后定义此过程的时候可以加上表对象名.对象名。
 示例：
      type
           procedure 过程名（参数）;//声名过程

implement   
       
   procedure Form1.procedurename(参数）;
 begin
    statement;
  end;