假設每個MDIChildForm都有StringGrid， 我想做一個功能是於MDIForm按下"Export to Excel"鍵後， 自動判斷ActiveChildForm並將該Form的StringGrid資料倒入Excel， 但我無法讀出ActiveChildForm裡的StringGrid控制項， 請問我該如何做

var
  frm: TForm;
  i: integer;
  sgd: TStringGrid;
begin
  frm := ActiveMDIChild; // 找出 Acitve 的 MDI Child Form      // 這種方法是知道 TStringGrid 的 Name 時
  sgd := frm.FindComponent('StringGrid1') as TStringGrid;      // 這種方法是 Child Form 內只有一個 TStringGrid 且不知 TStringGrid.Name 時可用
  sgd := nil;
  for i := 0 to frm.ComponentCount - 1 do
  begin
    if frm.Components[i] is TStringGrid then
    begin
      sgd := TStringGrid(frm.Components[i]);
      Break;
    end;
  end;      // ...
end;

感謝hagar，功力真是紮實!