переписать фрагмент на VBA в Delphi

Question

Как можно переписать фрагмент написанный в VBA для Delphi

Dim pQFilt As IQueryFilter
Set pQFilt = New QueryFilter
pQFilt.WhereClause = "FID >= 0"
FeatureCount = pFeatureLayer.FeatureClass.FeatureCount(pQFilt)
MsgBox "Feature Count is      " & FeatureCount

ia perepisal eta tak:

var
pQFilt:IQueryFilter ; pFeatureLayer: IFeatureLayer;
begin
pQFilt := CoQueryFilter.Create as IQueryFilter;  
pQFilt.WhereClause := 'FID >= 0';
FeatureCount := pFeatureLayer.FeatureClass.FeatureCount(pQFilt);  
ShowMessage('Feature Count is      ' + IntToStr(FeatureCount));<!-- Message ''"" -->

Answer 1

no ono ne rabotaet

ktonibud' mojet skazat' gde oshibka?

Answer 2

 

   pQFilt := CoQueryFilter.Create as IQueryFilter;
   pQFilt.Set_WhereClause('FID >= 0');
   pFeatclass.FeatureCount(pQFilt,i);