Código Delphi [-] with TMyModalForm.Create(nil) do try ShowModal finally Free end
with TMyModalForm.Create(nil) do try ShowModal finally Free end