1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TfAnthonToNolte.ReadDir;
var
  x           : Integer;
  sr          : TSearchRec;
  FileAttrs   : Integer;
  RowCount    : Integer;
  Tempstring  : String;
begin
  FileAttrs := faAnyFile;
  with StringGrid1 do
  begin
    AnzahlDateien := 0;
    RowCount := 1;
    if FindFirst(Zettelpath + '\*.stp', FileAttrs, sr) = 0 then
    begin
      repeat
        if ((sr.Attr and FileAttrs) = sr.Attr) and (sr.size > 0) then
        begin
          Cells[1,RowCount] := sr.Name;
          ZettelDatei[RowCount,1] := sr.Name;
          Cells[2,RowCount] := IntToStr(sr.Size);
          ZettelDatei[RowCount,2] := IntToStr(sr.Size);
          TempString := FormatDateTime('dd.mm.yyyy hh:nn.ss',fmyFile.GetFileDate(Zettelpath + '\' + sr.Name));
          Cells[3,RowCount] := TempString;
          ZettelDatei[RowCount,3] := TempString;
          RowCount := RowCount + 1;
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
      AnzahlDateien := RowCount - 1;
    end;
  end;
end;					

1:
2:

      if ((sr.Attr and FileAttrs) = sr.Attr) and (sr.size > 0) then
        begin