[Cheater]

Сообщение от NumLock

для получения списка нужно сначала Execute вызвать, а уж потом...

Вот сваял, читал мануалы, но где-то закралась ошибка...

Код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Finder;
type
  TExecute = procedure of object;
  TForm1 = class(TForm)
    Finder1: TFinder;
    Button1: TButton;
      procedure Button1Click(Sender: TObject);
  private
    procedure ExecuteFinder1(Instance: TObject);

  end;

var
  Form1: TForm1;
  Execute: TExecute;
implementation

procedure TForm1.ExecuteFinder1(Instance: TObject);
  begin
    Execute := TExecute(Finder1);
    Execute;
  end;

procedure TForm1.Button1Click(Sender: TObject);

  begin
    ExecuteFinder1(Instance: TObject);
    Finder1.FindList.SaveToFile('Z:\fff.txt');
  end;

end.