Código Delphi [-] if not (Form2 is TForm2) then begin Form2 := TForm2.Create(Self); try Form2.ShowModal; finally Form2.Free; end;
if not (Form2 is TForm2) then begin Form2 := TForm2.Create(Self); try Form2.ShowModal; finally Form2.Free; end;