Оптимизируйте функцию
procedure TForm1.Button1Click(Sender: TObject); var fmMain : TfmMain; begin fmMain := TfmMain.Create; fmMain.ShowModal; end;
Вариант
procedure TForm1.Button1Click(Sender: TObject); var fmMain : TfmMain; begin fmMain := TfmMain.Create(nil); try fmMain.ShowModal; finally FreeAndNil(fmMain); end; end;