Findfirst,Findnext schulung

[SaFu]

das heisst
wenn ich das so schreibe

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
begin
  if FindFirst('C:\Windows\*.ini',faAnyFile,Rec) = 0 then//da eins gefunden = 0
  begin
    repeat
      ListBox1.Items.Add(Format('%s -> %d KB %d',[Rec.Name,Rec.Size div 1024,Rec.Attr]));
    until FindNext(Rec) <> 0; //wenn nichts gefunden dann 1 also schließen
    FindClose(Rec);
  end;
end;

bekomme ich als Rec.Attr eine 32 und das ist dann eine archive datei????