Odwołanie do elementów formy nadrzędnej

var
  FormaA: TForm1;

begin
Forma A := TForm1.Create(Application);

var
FormaB  : TForm4;
begin
FormaB := TForm4.Create(Self);
FomaB.ShowModal;

ListItem.SubItems.Add(???FormaA???.ListView1.Items.Item[i].SubItems[1]);

implementation uses Form1;

FormaB := TForm4.Create(ListView1.Items);
FomaB.ShowModal;

constructor TForm4.Create(List:TStrings);
begin
  inherited Create(Application);
  ListItem.SubItems.Assgign(List);
end; 

class function TForm4.Exectute(List:TStrings):Boolean;
begin
  with Create(Application) do
  begin
    try
      ListItem.SubItems.Assgign(List);
      Result:=(ShowModal=mrOK);
    finally
      Free;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if not Assigned(Form4) then
  begin
    Form4:=TForm4.Create(ListView1);
    Form4.Show;
  end
  else Form4.Show;