try..except..finally的使用???

Question

http://www.csdn.net/expert/topic/981/981001.xml?temp=.1533319
这儿有对这个的应用，呵呵

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    try 
      showmessage('ok');
    except
       ShowMessage('except');
    end;
  finally
    ShowMessage('finally');
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
   try
      showmessage('ok');
    except
       ShowMessage('except');
    end;
  finally
    ShowMessage('finally');
  end
end;