Zoznam súborov v zložke

var
  Subor : TSearchRec;
  pocet: integer = 0;

// ...

if ( FindFirst( 'C:\zlozka\*.*', 0 or faDirectory, Subor ) = 0 ) then begin

  repeat
    case Subor.Attr of
    faDirectory: begin
                 ShowMessage( 'najdena zlozka' );
                 Exit;
                 end;
    0 { súbor }: begin
                 if ( ExtractFileExt( Subor.Name ) = '.ntx' ) then begin
                     ShowMessage( 'najdeny subor s priponou ntx' );
                     inc( pocet );
                 end else
                     ShowMessage( 'najdeny subor' );
                 end;
    end;
  until FindNext(Subor) <> 0;

  FindClose( Subor );

end;