procedure TForm1.Button1Click(Sender: TObject);var　　F:TForm2;begintry　　F:= TForm2.Create(nil);　　F.ShowModal;finally　　F.Free;end;end;