<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.10.16" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2032" PreviewOptions.Zoom="1" PrintOptions.Printer="Ïî óìîë÷àíèþ" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40800,6671715972" ReportOptions.Description.Text="" ReportOptions.LastChange="41554,3941019213" ScriptLanguage="PascalScript" ScriptText.Text="// Ïîçåìåëüíà êíèãà version 1.0                                                                                   &#13;&#10;var&#13;&#10;  MemoCounter:Integer;                         &#13;&#10;  S,S2:String;                      &#13;&#10;  I,N:Integer;                          &#13;&#10;  DecDelimeter:Char;&#13;&#10;  XMLMode:Boolean;&#13;&#10;  CadNumber,CadNumberClear:String; //Êàäàñòðîâèé íîìåð (ç &#34;:&#34; òà ÷èñòèé)                                                                                          &#13;&#10;  WorkDir:String;            // ðîáî÷à ïàïêà&#13;&#10;  XML573Root:String;         //ïóòü ê êîðíþ XML573&#13;&#10;  NMList:String;&#13;&#10;  TX:String;&#13;&#10;  AD:String;&#13;&#10;  ChiefPosition,ChiefName,ExecutorPosition,ExecutorName:String;&#13;&#10;  ExecName,ExecCity,ExecDate:String;                                                                                    &#13;&#10;  ParcelAddress:String; &#13;&#10;  MapScale:String;&#13;&#10;        &#13;&#10;procedure CreateMultiRowTable(Page:TfrxReportPage; Body:TfrxChild; TableName:String; SL:TStringList);&#13;&#10;var Row,N,I,J,MemoHeight:Integer; Cols,MemoList:TList;&#13;&#10;    Ex:Boolean; Memo:TfrxMemoView;&#13;&#10;  function PlaceReturns(S:String):String;&#13;&#10;  var I:Integer;                                                                                          &#13;&#10;  begin&#13;&#10;   Result:='';                           &#13;&#10;   for I:=1 to Length(S) do if S[I]&#60;&#62;'~' then Result:=Result+S[I] else Result:=Result+chr(13)+chr(10);  &#13;&#10;  end;             &#13;&#10;begin&#13;&#10;  Cols:=TList.Create;&#13;&#10;  MemoList:=TList.Create;                          &#13;&#10;  N:=0;&#13;&#10;  repeat&#13;&#10;    inc(N);&#13;&#10;    Ex:=True;                          &#13;&#10;    for I:=0 to Page.AllObjects.Count-1 do&#13;&#10;      if Page.AllObjects[I] is TfrxMemoView then&#13;&#10;        if TfrxMemoView(Page.AllObjects[I]).TagStr=TableName then                                                  &#13;&#10;          if TfrxMemoView(Page.AllObjects[I]).Tag=N&#13;&#10;            then begin&#13;&#10;              Cols.Add(Page.AllObjects[I]);&#13;&#10;              Ex:=False;&#13;&#10;              Break;                          &#13;&#10;            end;&#13;&#10;  until Ex;&#13;&#10;  if Cols.Count&#60;1 then Exit;                                                                            &#13;&#10;  if SL.Count&#60;1 then Exit;&#13;&#10;  if TfrxMemoView(Cols[0]).Height*SL.Count&#62;Body.Height &#13;&#10;    then begin&#13;&#10;      MemoHeight:=Trunc(Trunc(Body.Height) div SL.Count);                                                                                                                    &#13;&#10;      Body.Height:=MemoHeight*SL.Count;&#13;&#10;    end&#13;&#10;    else begin&#13;&#10;      MemoHeight:=Trunc(TfrxMemoView(Cols[0]).Height);                                                 &#13;&#10;      Body.Height:=TfrxMemoView(Cols[0]).Height*SL.Count;                         &#13;&#10;    end;              &#13;&#10;  for Row:=0 to SL.Count-1 do&#13;&#10;    if Row=0&#13;&#10;      then &#13;&#10;        for J:=0 to Cols.Count-1 do&#13;&#10;          begin                                           &#13;&#10;            TfrxMemoView(Cols[J]).Memo.Text:=PlaceReturns(StringPart(SL[Row],J+1,chr(9)));&#13;&#10;            TfrxMemoView(Cols[J]).Height:=MemoHeight;&#13;&#10;            TfrxMemoView(Cols[J]).Top:=0;&#13;&#10;          end                                &#13;&#10;      else begin&#13;&#10;        for J:=0 to Cols.Count-1 do&#13;&#10;          begin&#13;&#10;            Memo:=TfrxMemoView.Create(Body);                                                                &#13;&#10;            Memo.Memo.Text:=PlaceReturns(StringPart(SL[Row],J+1,chr(9)));&#13;&#10;            Memo.Name:=TfrxMemoView(Cols[J]).Name+'Row'+IntToStr(Row);                                                                            &#13;&#10;            Memo.Left:=TfrxMemoView(Cols[J]).Left;                                                                            &#13;&#10;            Memo.Top:=Row*MemoHeight;                                                                            &#13;&#10;            Memo.Width:=TfrxMemoView(Cols[J]).Width;                                                                            &#13;&#10;            Memo.Height:=MemoHeight;                                                                            &#13;&#10;            Memo.Font:=TfrxMemoView(Cols[J]).Font;                                                                            &#13;&#10;            Memo.Frame:=TfrxMemoView(Cols[J]).Frame;&#13;&#10;            Memo.HAlign:=TfrxMemoView(Cols[J]).HAlign;&#13;&#10;            Memo.VAlign:=TfrxMemoView(Cols[J]).VAlign;                                                        &#13;&#10;            Memo.Rotation:=TfrxMemoView(Cols[J]).Rotation;                                                        &#13;&#10;            MemoList.Add(Memo);                                                    &#13;&#10;          end;                                  &#13;&#10;      end;&#13;&#10;  Cols.Free;&#13;&#10;  MemoList.Free;                                  &#13;&#10;end;&#13;&#10;&#13;&#10;function PrepareXMLNMList(Delimeter:Char):String;&#13;&#10;var I,N:Integer; S,PPath:String;                                                                  &#13;&#10;begin&#13;&#10;  Result:='';&#13;&#10;  PPath:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors';                          &#13;&#10;  N:=NodesCount(PPath,'ProprietorInfo');&#13;&#10;  if N&#60;1 then Exit;&#13;&#10;  for I:=1 to N do&#13;&#10;    if IsNodeExists(PPath+'/ProprietorInfo/Authentication/NaturalPerson')&#13;&#10;      then Result:=Result+&#13;&#10;                XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName')+' '+&#13;&#10;                XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName')+' '+&#13;&#10;                XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName')+IIF(I&#60;&#62;N,Delimeter+' ','')&#13;&#10;      else Result:=Result+XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name')+IIF(I&#60;&#62;N,Delimeter+' ','')                                                                                          &#13;&#10;end;          &#13;&#10;&#13;&#10;function AnyStrToFloat(S:string):Real;&#13;&#10;var N:string;&#13;&#10;    i:Integer;                                              &#13;&#10;begin&#13;&#10; N:='';              &#13;&#10; for I:=1 to Length(S) do&#13;&#10; if S[I] in ['0'..'9',',','.'] &#13;&#10;   then begin&#13;&#10;     if S[I] in ['0'..'9']&#13;&#10;       then N:=N+S[I]&#13;&#10;       else N:=N+DecDelimeter;                            &#13;&#10;   end;                      &#13;&#10; if N&#60;&#62;'' then Result:=StrToFloat(N) else Result:=0;&#13;&#10;end;&#13;&#10;  &#13;&#10;function GetLandParcel(ParcelNumber:Integer; LPNumber:Integer):Real;&#13;&#10; var Path,S:String;                                                                                                    &#13;&#10;begin&#13;&#10;  Path:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo['&#13;&#10;        +IntToStr(ParcelNumber)+']/LandsParcel/LandParcelInfo['+IntToStr(LPNumber)+']/LandCode';&#13;&#10;  if IsNodeExists(Path)&#13;&#10;    then begin&#13;&#10;      S:=XPath(Path);&#13;&#10;      if S&#60;&#62;'' then Result:=AnyStrToFloat(S) else Result:=0.0;                                      &#13;&#10;    end                        &#13;&#10;    else Result:=0.0;                                       &#13;&#10;end;&#13;&#10;&#13;&#10;function FormatXMLAddress:String;&#13;&#10;var ST,SN,BN,Settlement,District,Region,Res:String;                             &#13;&#10;begin&#13;&#10;  Res:='';                               &#13;&#10;  ST:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetType'));&#13;&#10;  SN:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetName'));                                        &#13;&#10;  BN:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Building'));                                        &#13;&#10;  Settlement:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Settlement'));                                        &#13;&#10;  District:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/District'));                                        &#13;&#10;  Region:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Region'));&#13;&#10;  if (ST&#60;&#62;'') and (SN&#60;&#62;'') then Res:=Res+ST+' '+SN;&#13;&#10;  if BN&#60;&#62;'' then Res:=Res+', '+BN;&#13;&#10;  if Settlement&#60;&#62;'' then Res:=Res+', '+Settlement;&#13;&#10;  if District&#60;&#62;'' then Res:=Res+', '+District;&#13;&#10;  if Region&#60;&#62;'' then Res:=Res+', '+Region;&#13;&#10;  if IsNodeExists('InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelLocation/Urban') &#13;&#10;    then Res:=Res+' çà ìåæàìè íàñåëåííîãî ïóíêòà';&#13;&#10;  while Pos(', ',Res)=1 &#13;&#10;    do begin&#13;&#10;      Delete(Res,1,2);&#13;&#10;      Res:=Trim(Res);                                      &#13;&#10;    end;                      &#13;&#10;  Result:=Res;                            &#13;&#10;end;          &#13;&#10;&#13;&#10;procedure Picture1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var FN:String;                               &#13;&#10;begin&#13;&#10;  FN:=XPath('Graphics[1]/Graphic[1]/ImageFilename[1]');                                 &#13;&#10;//  FN:=WorkDir+'\Pictures\LBCP'+CadNumberClear+'.bmp';                     &#13;&#10;  Picture1.LoadFromFile(FN);    &#13;&#10;end;&#13;&#10;        &#13;&#10;begin&#13;&#10;  DecDelimeter:=Copy(FloatToStr(1/10),2,1);&#13;&#10;  MemoCounter:=1000;                          &#13;&#10;  XMLMode:=ObjCount=0;&#13;&#10;  if XMLMode&#13;&#10;    then XML573Root:=IIF(IsNodeExists('InfoPart'),'','EmbeddedXML/UkrainianCadastralExchangeFile/');                                         &#13;&#10;  if XMLMode&#13;&#10;    then begin&#13;&#10;      CadNumber:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/KOATUU')+':'+&#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralZoneNumber')+':'+      &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/CadastralQuarterNumber')+':'+  &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/ParcelID');  &#13;&#10;      CadNumberClear:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/KOATUU')+&#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralZoneNumber')+      &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/CadastralQuarterNumber')+  &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/ParcelID');  &#13;&#10;    end                                                 &#13;&#10;    else begin&#13;&#10;      CadNumber:=Param('ID106');         &#13;&#10;      CadNumberClear:=Copy(CadNumber,1,10)+Copy(CadNumber,12,2)+Copy(CadNumber,15,3)+Copy(CadNumber,19,4);                                                                                                  &#13;&#10;    end;&#13;&#10;  RegionID:=Copy(CadNumberClear,1,2);                                                                &#13;&#10;  RayonID:=Copy(CadNumberClear,1,5);                                                                &#13;&#10;  RadaID:=Copy(CadNumberClear,1,8);                                                                &#13;&#10;  if XMLMode and (XML573Root&#60;&#62;'')  &#13;&#10;    then UDKZName:=XPath('AppDetails/Common_Part/DKZ_Name')&#13;&#10;    else UDKZName:=File('Setup.ini','RepÍàçâà(ÓÇÐ)');&#13;&#10;     UZRNM:=File('Setup.ini','RepÍà÷àëüíèê(ÓÇÐ)');             &#13;&#10;  Óïðàâë³ííÿÄàâ:=File('Setup.ini','RepÍàçâàÄ(ÓÇÐ)');                                                         &#13;&#10;  ÐàäàÐîä:=File('Setup.ini','RepÍàçâàÐ(Ñ³ëüðàäà)');  &#13;&#10;  ÐàäàÍàç:=File('Setup.ini','RepÍàçâà(Ñ³ëüðàäà)');&#13;&#10;  Ãîëîâàñð:=File('Setup.ini','RepÍà÷àëüíèê(Ñ³ëüðàäà)');&#13;&#10;  Çåìëåâï:=File('Setup.ini','RepÍàçâà(Çåìëåâïîðÿäíèê)');&#13;&#10;  Íà÷Óïðàâë³íííÿ:=File('Setup.ini','RepÏîñàäà(ÓÇÐ)');        &#13;&#10;  ÊÑÏ:=File('Setup.ini','RepÍàçâà(Íàçâà ÊÑÏ)');&#13;&#10;  ÐàéîíÐîäîâ:=File('Setup.ini','RepÍàçâàÐ(Ðàéîí)');                            &#13;&#10;  Àäðåñà:=File('Setup.ini','RepÀäðåñà(ÓÇÐ)');&#13;&#10;  RegistratorName:=File('Setup.ini','Ðåºñòðàòîð');&#13;&#10;  Óïðàâë³ííÿì:=File('Setup.ini','RepÍàçâàÐ(ÓÇÐ)');&#13;&#10;        &#13;&#10;  WorkDir:=GetProgramDir;&#13;&#10;  MapScale:=XPath('Graphics/Graphic/ObjectScale');&#13;&#10;  if XMLMode&#13;&#10;    then begin                                    &#13;&#10;      NMList:=PrepareXMLNMList(',');&#13;&#10;      TX:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/CategoryPurposeInfo/Use');&#13;&#10;      ChiefPosition:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefPosition');&#13;&#10;      ChiefName:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefName/LastName');&#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefName/FirstName'));&#13;&#10;      if S&#60;&#62;'' then ChiefName:=ChiefName+' '+Copy(S,1,1)+'.';                        &#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefName/MiddleName'));&#13;&#10;      if S&#60;&#62;'' then ChiefName:=ChiefName+' '+Copy(S,1,1)+'.';                        &#13;&#10;      ExecutorPosition:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorPosition');&#13;&#10;      ExecutorName:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorName/LastName');&#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorName/FirstName'));&#13;&#10;      if S&#60;&#62;'' then ExecutorName:=ExecutorName+' '+Copy(S,1,1)+'.';                        &#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorName/MiddleName'));&#13;&#10;      if S&#60;&#62;'' then ExecutorName:=ExecutorName+' '+Copy(S,1,1)+'.';&#13;&#10;      ParcelAddress:=FormatXMLAddress;&#13;&#10;    end&#13;&#10;    else begin&#13;&#10;      NMList:=Param('NM');&#13;&#10;      TX:=Param('TX');&#13;&#10;      ChiefPosition:='Äèðåêòîð';&#13;&#10;      ChiefName:=File('setup.ini',ChiefPosition);&#13;&#10;      ExecutorPosition:='Âèêîíàâ';&#13;&#10;      ExecutorName:=File('setup.ini',ChiefPosition);&#13;&#10;      ParcelAddress:=Param('AU');                                                                          &#13;&#10;    end;&#13;&#10;  ExecName:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/CompanyName'));  &#13;&#10;  ExecCity:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Address/Settlement'));&#13;&#10;  ExecDate:=FormatDateTime('YYYY',Date)+'ð.';  &#13;&#10;end." StoreInDFM="False" PropData="044C65667403800103546F70026808446174617365747301010C2E00000020446174615365743D224F626A446174617365742220446174615365744E616D653D224F626A446174617365742200010C2E00000020446174615365743D22436174446174617365742220446174615365744E616D653D22436174446174617365742200010C3200000020446174615365743D224C61796572446174617365742220446174615365744E616D653D224C61796572446174617365742200010C3200000020446174615365743D22506172616D446174617365742220446174615365744E616D653D22506172616D44617461736574220000095661726961626C65730100055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" Font.Charset="204" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="20" RightMargin="12" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" Frame.ShadowWidth="1" Frame.Typ="15" Frame.LeftLine.Width="0,5" HGuides.Text="" VGuides.Text="">
    <TfrxPictureView Name="Picture1" Left="6,04069681" Top="84,63466315" Width="661,41732283" Height="718,11035339" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
    <TfrxMemoView Name="Memo2" Align="baWidth" Left="0" Top="0,69852944" Width="672,75634" Height="83,23121098" ShowHint="False" Font.Charset="204" Font.Color="0" Font.Height="-17" Font.Name="Times New Roman" Font.Style="1" Frame.Width="0,5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ð¡Ð¥Ð•ÐœÐ&#13;&#10;Ñ€Ð¾Ð·Ñ‚Ð°ÑˆÑƒÐ²Ð°Ð½Ð½Ñ Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸&#13;&#10;Ð½Ð° Ñ‚ÐµÑ€Ð¸Ñ‚Ð¾Ñ€Ñ–Ñ— [Ð Ð°Ð´Ð°Ð Ð¾Ð´] Ñ€Ð°Ð´Ð¸ [Ð Ð°Ð¹Ð¾Ð½Ð Ð¾Ð´Ð¾Ð²] Ð Ñ–Ð²Ð½ÐµÐ½ÑÑŒÐºÐ¾Ñ— Ð¾Ð±Ð»Ð°ÑÑ‚Ñ–"/>
    <TfrxMemoView Name="Memo60" Left="0" Top="0" Width="699,21259843" Height="0" Restrictions="31" ShowHint="False" Font.Charset="204" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0,5" ParentFont="False" VAlign="vaCenter" Text=""/>
    <TfrxMemoView Name="Memo55" Left="20,54674224" Top="758,15044455" Width="38,04475563" Height="18,89765" ShowHint="False" Color="255" Font.Charset="1" Font.Color="-16777208" Font.Height="-17" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=""/>
    <TfrxMemoView Name="Memo58" Left="65,00620388" Top="757,26600357" Width="602,73100149" Height="50,4419521" ShowHint="False" Font.Charset="204" Font.Color="-16777208" Font.Height="-13" Font.Name="Times New Roman" Font.Style="0" HAlign="haBlock" ParentFont="False" Text="- Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð° Ð´Ñ–Ð»ÑÐ½ÐºÐ°, Ñ‰Ð¾ Ð²Ñ–Ð´Ð²Ð¾Ð´Ð¸Ñ‚ÑŒÑÑ Ð³Ñ€. [DAP(NMList)]&#13;&#10;[TX]"/>
    <TfrxMemoView Name="Memo1" Left="20,75688161" Top="812,00951133" Width="38,04475563" Height="18,89765" ShowHint="False" Color="16777215" Font.Charset="1" Font.Color="-16777208" Font.Height="-17" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=""/>
    <TfrxLineView Name="Line1" Left="22,10214817" Top="829,05082837" Width="34,55653482" Height="-15,13424882" ShowHint="False" Frame.Style="fsDouble" Frame.Width="4" Diagonal="True"/>
    <TfrxMemoView Name="Memo62" Left="67,21811866" Top="813,64799311" Width="638,35180057" Height="40,88669917" ShowHint="False" Font.Charset="204" Font.Color="-16777208" Font.Height="-13" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text="- Ð¼ÐµÐ¶Ð° Ð½Ð°ÑÐµÐ»ÐµÐ½Ð¾Ð³Ð¾ Ð¿ÑƒÐ½ÐºÑ‚Ñƒ"/>
    <TfrxMemoView Name="Memo6" Left="63,13382257" Top="900,69252635" Width="270,06602258" Height="54,13264518" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Times New Roman" Font.Style="1" ParentFont="False" Text="Ð’Ð¸ÐºÐ¾Ð½Ð°Ð²ÐµÑ†ÑŒ: &#13;&#10;Ñ–Ð½Ð¶ÐµÐ½ÐµÑ€-Ð·ÐµÐ¼Ð»ÐµÐ²Ð¿Ð¾Ñ€ÑÐ´Ð½Ð¸Ðº&#13;&#10;Ð”ÐÐ’ÐŸ &#34;Ð Ñ–Ð²Ð½ÐµÐ³ÐµÐ¾ÐºÐ°Ð´Ð°ÑÑ‚Ñ€&#34;"/>
    <TfrxMemoView Name="Memo7" Left="507,02109373" Top="929,74179124" Width="212,79239957" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Times New Roman" Font.Style="1" ParentFont="False" Text="Ð”ÐµÐ³ÑƒÑ€ÐºÐ¾ Ð†.Ð’."/>
    <TfrxMemoView Name="Memo3" Left="211,65368" Top="718,1107" Width="192,75603" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-17" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="ÐœÐ°ÑÑˆÑ‚Ð°Ð± 1:50000"/>
  </TfrxReportPage>
</TfrxReport>
