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