function ADOCount (ADS: TCustomADODataSet): integer; stdcall;
var
  qCount: TADOQuery;
  str: string;
  Param: TParameters;
  i:integer;
begin
    Result := - 1 ;

    qCount := TADOQuery.Create (nil);

    if {ADS is TADOQuery} ADS.ClassName = 'TADOQuery' then
     //^^^^^^^^^^^^^^^^^^ в DLL не работает!!! Непонятно!!!
    begin
        Param := TADOQuery(ADS).Parameters;
        str := TADOQuery(ADS).SQL.Text;
    end;
    if {ADS is TADODataSet} ADS.ClassName = 'TADODataSet' then
      //^^^^^^^^^^^^^^^^^^ в DLL не работает!!! Непонятно!!!
    begin
        Param := TADODataSet(ADS).Parameters;
        str := TADODataSet(ADS).CommandText;
    end;
    Screen.Cursor := crSQLWait;
    try
       qCount.Connection := ADS.Connection;
       qCount.SQL.Text := string(SQLSelCount (PChar(str)));
//здесь строчка 'select Field1, Field2 ...' заменяется на 'select count(*)'

       for i :=  0  to Param.Count -  1  do
         qCount.Parameters[i].Value := Param[i].Value;
       try
          qCount.Open;
       except
           ShowMessage ('Ошибка');
       end;
       Result := qCount.Fields[ 0 ].AsInteger;
       qCount.Close;
    finally
         qCount.Free; //Падает здесь при первых запусках программы, но не 
	// при первром прогоне функции!!!
         Screen.Cursor := crDefault;
    end
end;