怎样修改EHLIB控件的DBSUMLIST！！！！！！！

我想在DBSUMLIST中加入两个字段相乘，然后SUMLIST，在DBSUMLISTPRODUCER中声明了一个过程ITMEFIELDS，将两个字段的值相乘，然后在DBSUMLIST中也申明了ITMEFIELDS过程，但是一安装控件就报错，我不知道是不是加对了，请大家帮忙看看：TDBSum = class(TCollectionItem)
  private
    procedure SetGroupOperation(const Value: TGroupOperation);
    procedure SetFieldName(const Value: String);
    。
    。
    procedure itmefields(const mefields: string;var m,k: string);
    。
    。
    TDBSumList = class(TComponent)
  private
  。
   。
   。
     procedure itmefields(const mefields: string;var m,k: string);
   。
   。
   。
   procedure TDBSumListProducer.itmefields(const mefields: string; var m,k: string);
 var s:string;
      j:integer;
      begin
    s:=mefields;
    for j:=1 to length(s) do
    begin
    if s[j]='*' then
    begin
        break;
       end;
       m:=copy(s,0,j-1);
       k:=copy(s,j+1,length(s));
       end;
       end;//以上是我的过程。
     //DBSUMLIST
    procedure TDBSumList.itmefields(const mefields :string; var m,k:string);
 begin
   FDBSumListProducer.itmefields(mefields,m,k);这句出错。
      end; 
     报UNDECLARED IDENTIFIER “FDBSUMLIST PRODUCER”
       MISSING OPERATOR OR SEMICOLON
 
请大家帮帮我！！！！