procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  StringGrid1.RowCount := 1;
  if CheckBox1.Checked then
    FileAttrs := faReadOnly
  else FileAttrs := 0;
  if CheckBox2.Checked then
    FileAttrs := FileAttrs + faHidden;
  if CheckBox3.Checked then
    FileAttrs := FileAttrs + faSysFile;
  if CheckBox4.Checked then
    FileAttrs := FileAttrs + faVolumeID;
  if CheckBox5.Checked then
    FileAttrs := FileAttrs + faDirectory;
  if CheckBox6.Checked then
    FileAttrs := FileAttrs + faArchive;
  if CheckBox7.Checked then
    FileAttrs := FileAttrs + faAnyFile;
  with StringGrid1 do
  begin
    RowCount := 0;
    if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

function BrowseForFolder(var Foldr: string; Title: string): 
Boolean;
var
  BrowseInfo: TBrowseInfo;
  ItemIDList: PItemIDList;
  DisplayName: array of Char;
begin
  Result := False;
  FillChar(BrowseInfo, SizeOf(BrowseInfo),#0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName[0];
    lpszTitle := PChar(Title);
    ulFlags := BIF_RETURNONLYFSDIRS;
  end;
  ItemIDList := SHBrowseForFolder(BrowseInfo);
  if Assigned(ItemIDList) then
    if SHGetPathFromIDList(ItemIDList, DisplayName) then begin
      Foldr := DisplayName;
      Result := True;
    end;
end; 

uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var Dir: string;
begin
  if SelectDirectory('Pilih direktory...', '', Dir) then
    ShowMessage('OK, Anda memilih direktory: ' + Dir);
end;

utk komponen edit : isikan properti text edit1 = c:\ lalu isikan properti text edit2 = .

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    ListBox1: TListBox;
    Label3: TLabel;
    Panel1: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
    procedure Filecari(const namapath, namafile : string; const dalamDir : boolean);
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R .dfm}
procedure Tform1.Filecari(const namapath, namafile : string; const dalamDir : boolean);
var Rec  : TSearchRec;
    Path : string;
begin
Path := IncludeTrailingBackslash(namapath);
if FindFirst(Path + namafile, faAnyFile - faDirectory, Rec) = 0 then
 try
   repeat
     ListBox1.Items.Add(Path + Rec.Name);
   until FindNext(Rec) <> 0;
 finally
   FindClose(Rec);
 end;
If not dalamDir then Exit;
if FindFirst(Path + ' .', faDirectory, Rec) = 0 then
 try
   repeat
     Filecari(Path + Rec.Name, namafile, True);
   until FindNext(Rec) <> 0;
 finally
   FindClose(Rec);
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Clear;
  label3.Caption:=Inttostr(ListBox1.Items.Count) + ' file yg ketemu.';
  Filecari(Edit1.Text, Edit2.Text, CheckBox1.State in [cbChecked]);
  label3.Caption:=Inttostr(ListBox1.Items.Count) + ' juml file yg ketemu.';
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var SelectedFile : string;
    Rec          : TSearchRec;
begin
SelectedFile := ListBox1.Items.Strings[ListBox1.ItemIndex];
if FindFirst(SelectedFile, faAnyFile, Rec) = 0 then
 begin
    label4.Caption := SelectedFile;
    label9.Caption := Rec.name;
    label10.Caption := Format('%d bytes',[Rec.Size]);
    label11.Caption := DateToStr(FileDateToDateTime(Rec.Time));
    label12.Caption := Rec.FindData.cAlternateFileName;
   FindClose(Rec)
 end;
end;
end.

 private
    { Private declarations }
    procedure Filecari(const namapath, namafile : string; const dalamDir : boolean);
  public
    { Public declarations }

procedure Tform1.Filecari(const namapath, namafile : string; const dalamDir : boolean);
var Rec  : TSearchRec;
    Path : string;
begin
Path := IncludeTrailingBackslash(namapath);
if FindFirst(Path + namafile, faAnyFile - faDirectory, Rec) = 0 then
 try
   repeat
     ListBox1.Items.Add(Path + Rec.Name);
   until FindNext(Rec) <> 0;
 finally
   FindClose(Rec);
 end;
If not dalamDir then Exit;
if FindFirst(Path + ' .*', faDirectory, Rec) = 0 then
 try
   repeat
     Filecari(Path + Rec.Name, namafile, True);
   until FindNext(Rec) <> 0;
 finally
   FindClose(Rec);
 end;
end;