Text- Dateien im StringGrid auflisten

[strom]

Danke es geht!

Delphi-Quellcode:

procedure TForm1.Beenden1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  i:integer;
begin
  FindFirst(ExtractFilePath('\\192.168.0.62\d$\Office\Testdaten\Test\') + '*.asc', faAnyFile, SearchRec);
  repeat
   StringGrid1.RowCount := StringGrid1.RowCount + 1;
    for i := StringGrid1.RowCount - 1 downto StringGrid1.FixedRows + 1 do
    StringGrid1.Rows [i].Assign (StringGrid1.Rows [i - 1]);
    Stringgrid1.Cells[1,1]:=(searchrec.Name);
  until FindNext(searchrec) <> 0;
  findclose(searchrec);
end;