unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Grids; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    GList: TStringGrid; 
    Edit1: TEdit; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 
  SearchRec: TSearchRec; 
implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: integer; 
begin 
  GList.Cells[0,0] := '파일명'; 
  GList.Cells[1,0] := '크기'; 
  GList.Cells[2,0] := '종류'; 

  i := 0; 
  if FindFirst(Edit1.Text, faAnyFile, SearchRec) = 0 then 
  begin 
    repeat 
      Inc(i); 
      GList.Cells[0,i] := SearchRec.Name; 
      GList.Cells[1,i] := IntToStr(SearchRec.Size); 
      case SearchRec.Attr of 
        $00000001: GList.Cells[2,i] := 'Read-only files'; 
        $00000002: GList.Cells[2,i] := 'Hidden files'; 
        $00000004: GList.Cells[2,i] := 'System files'; 
        $00000008: GList.Cells[2,i] := 'Volume ID files'; 
        $00000010: GList.Cells[2,i] := 'Directory files'; 
        $00000020: GList.Cells[2,i] := 'Archive files'; 
        $0000003F: GList.Cells[2,i] := 'Any file'; 
      end; 

      GList.RowCount := i+1; 
    until FindNext(SearchRec) <> 0; 
  end 
  else ShowMessage('파일이 없습니다'); 

  FindClose(SearchRec); 
end; 

end.