HTML Tabelle in Stringgrid Problem

[Luckie]

Democode mit einer Listbox:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  OffSet: Integer;
begin
  Offset := StringGrid1.RowCount;
  StringGrid1.RowCount := StringGrid1.RowCount + ListBox1.Items.Count;
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    StringGrid1.Cells[0, OffSet + i - 1] := Listbox1.Items[i];
  end;
end;