StringGrid.RowCount lässt sich nicht ändern

[Hobby-Programmierer]

Tach ...,
versuch mal ob es jetzt funktionopelt

Delphi-Quellcode:

var c: integer;
begin
  for ARow := 1 to Pred(StringGrid.RowCount) do
    StringGrid.Rows[ARow].Clear;

  StringGrid.RowCount:= 2;
  StringGrid.FixedRows := 1;
  c := StringGrid.FixedRows;

  hSearch := FtpFindFirstFile(hConnect, nil, FindData, INTERNET_FLAG_DONT_CACHE, 0);
  if hSearch <> nil then
  repeat
    StringGrid.Cells[0, c] := FindData.cFileName;
    StringGrid.Cells[1, c] := IntToStr(FindData.nFileSizeLow);
    inc(c);
    StringGrid.RowCount:= c;
  until NOT (InternetFindNextFile(hSearch, @FindData));

  InternetCloseHandle(hSearch);
  hSearch := nil;
end;

LG Mario