TASGridForm = class(TForm)
private
FMainFormInf: IMainFormIntf;
publc
property FrmMainIntf: IMainFormIntf read GetMainFormInf write SetMainFormInf;
end;
procedure TASGridForm.SetMainFormInf(const Value: IMainFormIntf);
beginif (Value <> nil) and (Value <> FrmMainIntf) then
FrmMainIntf:= Value;
end;