TMS Web Komponente

[strom]

Habe eine Fehlermeldung,was mache ich falsch?

: Fehler Unit1.pass(38): identifier not found "Rows"

Delphi-Quellcode:

unit Unit1;

interface

uses
  System.SysUtils, System.Classes, WEBLib.Graphics, WEBLib.Controls, WEBLib.Forms, WEBLib.Dialogs,
  Vcl.Controls, WEBLib.ExtCtrls, WEBLib.Buttons, WEBLib.WebSocketClient,
  Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.WebCtrls, WEBLib.REST,
  WEBLib.myCloudData, Data.DB, WEBLib.CDS, Vcl.Grids, WEBLib.DBCtrls,
  WEBLib.Grids;

type
  TForm1 = class(TWebForm)
    WebPanel1: TWebPanel;
    WebGroupBox1: TWebGroupBox;
    WebPanel2: TWebPanel;
    WebStringGrid1: TWebStringGrid;
    WebBitBtn1: TWebBitBtn;
    procedure WebFormCreate(Sender: TObject);
    procedure WebBitBtn1Click(Sender: TObject);

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WebBitBtn1Click(Sender: TObject);
var
 i: integer;
begin
 WebStringGrid1.RowCount := WebStringGrid1.RowCount + 1;
  for i := WebStringGrid1.RowCount - 1 downto WebStringGrid1.FixedRows + 1 do
  begin
  -> WebStringGrid1.Rows [i].Assign (WebStringGrid1.Rows [i - 1]); //Fehler Unit1.pass(38): identifier not found "Rows"
   WebStringGrid1.Rows[WebStringGrid1.FixedRows].Clear;
   WebStringGrid1.Cells [2,1]  := FormatDateTime ('dd.mm.yyyy', Now);
   WebStringGrid1.Cells [3,1]  := FormatDateTime ('hh:nn:ss', Now);
   WebStringGrid1.Cells [4,1]  := '<Event>';
   WebStringGrid1.Cells [5,1]  := '<TEST>';
  end;
end;

procedure TForm1.WebFormCreate(Sender: TObject);
var
 i, j :integer;
begin
 WebStringgrid1.ColWidths[0] := 5;
 WebStringgrid1.ColWidths[1] := 25;
 WebStringgrid1.ColWidths[2] := 70;
 WebStringgrid1.ColWidths[3] := 70;
 WebStringgrid1.ColWidths[4] := 100;
 WebStringGrid1.ColWidths[5] := 2000;
 WebStringGrid1.Cells [1,0]  := ' ';
 WebStringGrid1.Cells [2,0]  := 'Date';
 WebStringGrid1.Cells [3,0]  := 'Time';
 WebStringGrid1.Cells [4,0]  := 'ID';
 WebStringGrid1.Cells [5,0]  := 'Event';
 for i := WebStringGrid1.FixedCols to WebStringGrid1.ColCount - 1 do
  begin
   for j :=WebStringGrid1.FixedRows to WebStringGrid1.RowCount - 1 do
    begin
     WebStringGrid1.Cells[i,j] := '';
    end;
   end;
    WebStringGrid1.RowCount := WebStringGrid1.Fixedrows +1;
    WebStringGrid1.Cells [2,1]  := FormatDateTime ('dd.mm.yyyy', Now);
    WebStringGrid1.Cells [3,1]  := FormatDateTime ('hh:nn:ss', Now);
    WebStringGrid1.Cells [4,1]  := '<Start>';
    WebStringGrid1.Cells [5,1]  := '<Komponete Test erstellt...>';
end;

end.