当表单在表单中时，如何使TMEMO可单击

Question

我有2种表单，Form1（仅包含1个按钮）和Form2（仅包含备忘录）。这是单击按钮时的代码：

begin
  Form2.Parent := Self;
  Form2.Show;
end;

可以，但是当我单击memo时无法获得焦点。但是当我按Tab时，它可以得到焦点。为什么单击时无法获得焦点，但是在单击时却可以聚焦？单击该如何使其具有焦点？

编辑

这是我Form1中的代码：

TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  Unit2;

procedure TForm1.btn1Click(Sender: TObject);
begin
  Form2.Parent := Self;
  Form2.Show;
end;

这是Form2：

TForm2 = class(TForm)
    memo2: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;