Código Delphi [-] procedure TElfrmQueSea.ButtonClick(Sender: TObject); begin with TfrmInicioDeSesion.Create(Self) do try ShowModal; finally Free; end; end;
procedure TElfrmQueSea.ButtonClick(Sender: TObject); begin with TfrmInicioDeSesion.Create(Self) do try ShowModal; finally Free; end; end;