引言: 我准备做一个功能： 在TIMER里写个自动刷新的事件，里面有一个I变量 我想当I变量发生变化时打开一个FORM， 而这个FORM本来已经打开着的，那就在FORM里把I变量再传进去？ 请教这个IF语句应该怎么写？谢谢指教！

var
  LastI, I: Integer;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // 若LastI 不等於I表示I已變動
  if (LastI <> I) then
  begin
    // 判斷FORM是否為開著的
    if FORM.Visible then
    begin
      // Pass I to FORM......
    end
    else
    begin
      FORM.Show;
    end;        LastI := I;
  end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  // 程式啟動時先讓LastI 等於 I
  LastI := I
end;

begin
  if Form2.Visible = True then
  //上句也可寫成 if Form2.Showing then
    Form2.BrintToFront
  else
    Form2.Show;
end;

bgin
  if Form2 <> Nil then
    Form2.BringToFont
  else
   begin
     Form2 := TForm2.Create(Application);
     Form2.Show;
   end;
end;    Form2.OnClose事件﹕
begin
  Form2 := Nil;
  Action := caFree;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================