Try-finally und modalresult

[himitsu]

OnCreate -> OnDestroy
OnShow -> OnClose

Delphi-Quellcode:

F := TMyForm.Create(x);
try

  F.Show;
  F.Close;
  F.Show;  // peng
  ... 

  F.ShowModal;
  F.ShowModal;  // peng
  ...

finally
  F.Free;
end;