Exporter un TListView vers un TStringgrid

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 nötig, zuerst das StringGrid löschen
i := 0;
while i < StringGrid1.RowCount do
begin
StringGrid1.Rows[i].Clear;
Inc(i);
end;
// Copy ListView1 to StringGrid1
ListView2StringGrid(ListView1, StringGrid1);
end;