假設說我們從Form1利用Form2.show;進入Form2，再從Form2.close回到Form1. 沒有錯，表面上是已經關掉了，但是並沒有 Form2.free掉，所以還留在memory，如果等一下再Form2.show，將會發現所有之前的值都還留著。 現在就是想要做成Form1可以有選單自由關閉其Form2，但是因為又怕使用者誤按第二次的關閉按鈕， Form2.free二次的話會掛掉吧，所以在關它之前要先測試是否還存在於memory，才能Form2.free，不是嗎？怎麼做到呢？謝謝! 而且能夠做出來「未關閉(指.free)」的表單列表嗎？

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

1.

if Form2 <> nil then
  ...

2.例:

var i: integer;
begin
  for i := 0 to Application.ComponentCount - 1 do
    if Application.Components[i] is TForm then
      if Application.Components[i] <> nil then
        ListBox1.Items.Add((Application.Components as TForm).Name));
end;

-- Everything I say is a lie.

如果你每次close form2都希望Free Form2 可以不用如此麻煩, 在form2之onClose加一行 Action:=caFree; 如此只要close就會自動Free

因為大部份的情況，我都要離開時，再回來保留它的值，所以我應該持續使用傳統的close，但假設如果我其中有一次要離開時， 我使用了form3.free(假設目前正在form3)，這樣會掛掉耶。它不能free自己，怎麼辦呢？

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

引言: 1.

if Form2 <> nil then
  ...

2.例:

var i: integer;
begin
  for i := 0 to Application.ComponentCount - 1 do
    if Application.Components[i] is TForm then
      if Application.Components[i] <> nil then
        ListBox1.Items.Add((Application.Components as TForm).Name));
end;

-- Everything I say is a lie.

這一行有誤：ListBox1.Items.Add((Application.Components as TForm).Name)); 括號欠一個，而且 as 也錯了，應該要怎麼修正呢？

呵呵，改成 ListBox1.Items.Add((Application.Components[i].Name)); 即可。    謝謝您喔..

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩