var i : integer
begin
  for i := 0 to Screen.FormCount - 1 do
  begin
    if Screen.Form[i] is TFrom1 then // 是 TForm1 這個 Class 的其中一個 Instance
      xxxxxxx
  end;
end;