Delphi 使用 FindGlobalComponent 來取得 Form

FindGlobalComponent 可以在不使用 uses 的情況下來取得有被建立的 Form
先 new 一個 Form2
在 Form2 Create 事件中加入

procedure TForm2.FormCreate(Sender: TObject);
begin
  (FindGlobalComponent('Form1') as TForm).Caption := 'Show From Form2';
end;

執行程式後 Form1 的 Caption 會被改成 Show From Form2