unit Finda;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus,
  FileUtil, LazFileUtils;

type


  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private

  public
     Huhu : integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

var
  PascalFiles: TStringList;
  Rslt: TSearchRec;


{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  PascalFiles := TStringList.Create;
  Huhu:=0;
   while huhu<32 do
      begin

      FindFirstUTF8( 'D:\Bilder und Videos',huhu,RSLT);
      // ShowMessage(huhu);
      showmessage(Rslt.name);
      if   Rslt.name <>''
       then
       begin
            findnext( RSLT);
            showmessage(Rslt.name);
       end;
      huhu := huhu +1;
    end;



end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   Edit1.Text := 'hallo';
   showmessage('unit Measure = ' + Edit1.Text);
end;



end.