Проблема решена, сначала необходимо освободить дочерние формы.
procedure OnFree;
begin
if assigned(Button1) then Button1.Free;
if assigned(Button2) then Button2.Free;
if assigned(Button3) then Button3.Free;
if assigned(Button4) then Button4.Free;
if assigned(OnClickAction) then OnClickAction.Free;
if assigned(L) then L.Free;
if assigned(Form) then Form.Free;
|