Как передать выделенные элементы?

[GoldenEagle88]

На форме есть ListView ,как второй форме лучше передать выделенные элементы?
Щас передаю массивом :

procedure TForm1.AccountUses;
var
  i: Integer;
begin
  try
    SetLength(UsesAccount, 0);
    if AdvListView1.SelCount > 0 then
    begin
      SetLength(UsesAccount, AdvListView1.Items.Count);
      for i := 0 to AdvListView1.Items.Count - 1 do
      begin
        if AdvListView1.Items[i].Selected then
        begin
          UsesAccount[i] := ListAccount[i];
        end
        else
        begin
          UsesAccount[i] := nil;
        end;
      end;
    end;
  except
  end;
end;