how can I create a numeric arrays then store it into a listview, just like the following example but uses [double] numeric then add it to the salary column next to the name.

procedure TForm1.Button2Click(Sender: TObject);
const
Names: array[0..5, 0..1] of string = (
('Rubble', 'Barney'),
('Michael', 'Johnson'),
('Bunny', 'Bugs'),
('Silver', 'HiHo'),
('Simpson', 'Bart'),
('Squirrel', 'Rocky')
);


var
NewColumn: TListColumn;
ListView: TListView;
ListItem: TListItem;
I: Integer;
begin
// listview initialization;
// ListView := TListView.Create(Self);
ListView := lstStateResult;

with ListView do
begin
ListView.Items.Clear;
ListView.Columns.Clear;

Parent := Self;
Align := alNone;
ViewStyle := vsReport;

NewColumn := Columns.Add;
NewColumn.Caption := 'Name';
NewColumn := Columns.Add;
NewColumn.Caption := 'Salary;
end;

for I := Low(Names) to High(Names) do
begin
ListItem := ListView.Items.Add;
ListItem.Caption := Names[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;

end;