Código Delphi [-] with TFrmToma.Create(Self) do try ShowModal; finally Free; end;
with TFrmToma.Create(Self) do try ShowModal; finally Free; end;