procedure Programa1.SpeedButton1Click(Sender: TObject); var Faux: TForm3histor; begin Try Application.CreateForm(TForm3histor,Faux); Faux.ShowModal; Finally Faux.Free; End;End