um;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeLeft].ColorIndex:=xlAutomatic;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeTop].LineStyle:=xlContinuous;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeTop].Weight:=xlMedium;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeTop].ColorIndex:=xlAutomatic;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeBottom].LineStyle:=xlContinuous;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeBottom].Weight:=xlMedium;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeBottom].ColorIndex:=xlAutomatic;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeRight].LineStyle:=xlContinuous;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeRight].Weight:=xlMedium;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeRight].ColorIndex:=xlAutomatic;;.range[laquo;A1:raquo;+chr(Ord(laquo;Araquo;)+col)+laquo;1raquo;].merge;(Groups.ItemIndexgt;=0)and(Groups.ItemIndexlt;groups.Items.Count)then.range[laquo;A1:raquo;+chr(Ord(laquo;Araquo;)+col)+laquo;1raquo;].value:=laquo;Список телефонів laquo;raquo;+Groups.Items[Groups.ItemIndex].Caption+laquo;raquo;raquo;.range[laquo;A1:raquo;+chr(Ord(laquo;Araquo;)+col)+laquo;1raquo;].value:=laquo;Список телефоновraquo;;.range[laquo;A1:raquo;+chr(Ord(laquo;Araquo;)+col)+laquo;1raquo;].font.bold:=true;.range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].font.bold:=true;
//підженемо размеры.Columns[laquo;A:raquo;+chr(Ord(laquo;Araquo;)+col)].EntireColumn.AutoFit;.ActiveWindow.SplitRow:=fst;.ActiveWindow.FreezePanes:=True;.ActiveSheet.PageSetup.Orientation:=xlLandscape;.ActiveSheet.PageSetup.PrintArea:=laquo;$A:$Graquo;;
finally
//вихід з екселя
//xl.quit;
end ;; TPhoneBookmentExit (Sender: TObject); i: integer; CommentChanged then begini:=0 to 100 do.DeleteKey (phones.ItemFocused.Caption, c + inttostr (i )); i:=0 to comment.Lines.Count - 1 do.WriteString(phones.ItemFocused.Caption,laquo;craquo;+inttostr(i),comment.lines[i]);;;TPhoneBook.PopupListPopup(Sender: TObject) ;. SetFocus ;; TPhoneBookmentChange (Sender: TObject);:=true ;;.
