Exporter un TStringgrid vers un ListView

Procedure StringGrid2ListView(StringGrid : TStringGrid; Listview : TListView);
var
i,j,k : Integer;
ListItem : TListItem;
begin
ListView.Items.BeginUpdate;
try
With StringGrid, ListView do
begin
for j := 1 to ColCount -1 do
Columns.add;
for j := 1 to RowCount-1 do
begin
{Get Item of First Column}
ListItem := Listview.Items.Add;
ListItem.Caption := Cells[1,j];
for k := 1 to ColCount -1 do
ListItem.Subitems.Add(Cells[k+1,j]);
end;
end;
finally
ListView.Items.EndUpdate;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
begin
with ListView1 do
begin
Items.BeginUpdate;
try
ViewStyle := vsReport;
Items.Clear;
for i := Columns.Count -1 downto 0 do
listView_DeleteColumn(Handle,i);
finally
Items.EndUpdate;
end;
end;
StringGrid2ListView(StringGrid1, ListView1);
end;