TFinder = class(TEnumerator<TSearchRec>)
  private
    FStart: Boolean;
    FSuccess: Boolean;
    FFullPath: string;
    FSearchRec: TSearchRec;
    function GetCurrent: TSearchRec;
  protected
    function DoGetCurrent: TSearchRec; override;
    function DoMoveNext: Boolean; override;
  public
    constructor Create(const aPath, aMask: string);

    property Current: TSearchRec read GetCurrent;
    function MoveNext: Boolean;
  end;

{ TFinder }

constructor TFinder.Create(const aPath, aMask: string);
begin
  FFullPath := aPath + aMask;
  FStart := False;
  FSuccess := False;
end;

function TFinder.DoGetCurrent: TSearchRec;
begin
  Exit(GetCurrent());
end;

function TFinder.DoMoveNext: Boolean;
begin
  Exit(MoveNext());
end;

function TFinder.GetCurrent: TSearchRec;
begin
  Exit(FSearchRec);
end;

function TFinder.MoveNext: Boolean;
begin
  if not FStart then
  begin
    FSuccess := FindFirst(FFullPath, faAnyFile - faVolumeID - faDirectory - faHidden - faSysFile - faArchive, FSearchRec) = 0;
    FStart := True;
  end
  else
  begin
    FSuccess := FindNext(FSearchRec) = 0;
    if not FSuccess then
      FindClose(FSearchRec);
  end;
  Exit(FSuccess);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Counter: Int32;
begin
  Counter := 0;
  while FFinder.MoveNext() and (Counter < 3) do
  begin
    Memo1.Lines.Add(FFinder.Current.Name);
    Inc(Counter);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FFinder := TFinder.Create('C:\', '*.*');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FFinder);
end;