Código SQL [-] procedure TForm1.FormDestroy(Sender: TObject); begin Form2.ShowModal; end; procedure TForm1.Button1Click(Sender: TObject); begin close; end;
procedure TForm1.FormDestroy(Sender: TObject); begin Form2.ShowModal; end; procedure TForm1.Button1Click(Sender: TObject); begin close; end;