Código Delphi [-] procedure ShowForma(TF:TClassForm); Begin With TF.Create(Self) Do Try ShowModal; Finally Free; End; End;
procedure ShowForma(TF:TClassForm); Begin With TF.Create(Self) Do Try ShowModal; Finally Free; End; End;