Экспорт TListView в TStringGrid

Code:

procedure ListView2StringGrid(Listview: TListView; StringGrid: TStringGrid);

const

  MAX_SUBITEMS = 5;

var

  i, j: Integer;

begin

  with ListView do

    for i := 0 to Items.Count - 1 do

    begin

      {Get Item of First Column}

      StringGrid.Cells[1, i + 1] := Items[i].Caption;

      {loop through SubItems}

      for j := 0 to MAX_SUBITEMS do

      begin

        if Items[i].SubItems.Count > j then

          StringGrid.Cells[j + 2, i + 1] := Items[i].SubItems.Strings[j]

        else

           break;

      end;

    end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  i: Integer;

begin

  // Clear the StringGrid if necessary

// Falls notig, zuerst das StringGrid loschen

i := 0;

  while i < StringGrid1.RowCount do

  begin

    StringGrid1.Rows[i].Clear;

    Inc(i);

  end;

  // Copy ListView1 to StringGrid1

ListView2StringGrid(ListView1, StringGrid1);

end;