На форме находится кнопка. При нажатии на эту кнопку необходимо, чтобы создавалась новая форма произвольное количество раз. При нажатии предыдущая форма не исчезает, а добавляется на экран — Delphi(Делфи)

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TForm;
  B: TButton;
begin
  F := TForm.Create(Application);

  begin
    B := TButton.Create(F);
    B.Parent := F;
    B.Left := 100;
    B.Top := 100;
    B.OnClick := Button1Click;

    F.Left := Random(500);
    F.Top := Random(500);
    F.Show; // или F.ShowModal;
  end;
end;