单元文件中定义对象是的问题 。。。急 。。。求助

Question

大家好，在一个新建的单元文件中定义了两个(TObject)类的对象时出现了两个问题,请求大虾的帮助
问题1.
在实现对象Tuser（Tuser时tobject的实例，)的一个过程时 提示Var出现错误
要实现的过程是: 
 procedure Tuser.delete
  Var
  query : Tquery;
  begin
   if application.MessageBox('是否删除当前被选中的用户信息','删除数据',MB_ICONQESTION
   +MB_YesNO)=idno then exit;
   query:=tquery.Create(nil);
   query.DatabaseName:=dm.DB.DatabaseName;
   with query do
   begin
       close ;
       sql.Text:='delete from users where userid=''+ userid + '''';
       execsql;
       free;
   end;
   query := nil
   end; 
被实现的其他几个过程中也都用了相似的声明，都可顺利编译，唯有他不能
问题2
  在此单元文件中定义第2个对象Tcustomer时，系统好像不认识它
 声明的位置是在第一个声明第一个对象的end;位置之下紧挨着的
又用了一次type实现时还是在implementation 的下方系统提示在 Tcustomer=class(Tobject)的地方出错   是不是还要用个implementation 呢 悉心等待各位高手的指点。 

Answer 1

procedure Tuser.delete ;
后面要有分号

Answer 2

不是VAR，是VAR上面 procedure Tuser.delete;//分号