Undeclared identifier: 'SaveToFile' 程序长了点看上去有点麻烦，但还是希望大家不吝赐教！

Undeclared identifier: 'SaveToFile' 程序长了点看起来有点麻烦，但还是希望大家不吝赐教！！
错误主要出现在下面两段程序中：
unit untMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, AppEvnts, ImgList, ActnList,
  StdActns, ExtActns, ToolWin;
type
  TfrmMain = class(TForm)
  ActionList1: TActionList;
  MainMenu1: TMainMenu;
  PopupMenu1: TPopupMenu;
  ImageList1: TImageList;
  ApplicationEvents1: TApplicationEvents;
  File1: TMenuItem;
  Edit1: TMenuItem;
  Search1: TMenuItem;
  Window1: TMenuItem;
  Help1: TMenuItem;
  EditCut1: TEditCut;
  EditCopy1: TEditCopy;
  EditPaste1: TEditPaste;
  EditSelectAll1: TEditSelectAll;
  EditUndo1: TEditUndo;
  EditDelete1: TEditDelete;
  RichEditBold1: TRichEditBold;
  RichEditItalic1: TRichEditItalic;
  RichEditUnderline1: TRichEditUnderline;
  RichEditStrikeOut1: TRichEditStrikeOut;
  RichEditBullets1: TRichEditBullets;
  RichEditAlignLeft1: TRichEditAlignLeft;
  RichEditAlignRight1: TRichEditAlignRight;
  RichEditAlignCenter1: TRichEditAlignCenter;
  WindowClose1: TWindowClose;
  WindowCascade1: TWindowCascade;
  WindowTileHorizontal1: TWindowTileHorizontal;
  WindowTileVertical1: TWindowTileVertical;
  WindowMinimizeAll1: TWindowMinimizeAll;
  WindowArrange1: TWindowArrange;
  FileOpen1: TFileOpen;
  FileSaveAs1: TFileSaveAs;
  FilePrintSetup1: TFilePrintSetup;
  FileExit1: TFileExit;
  SearchFind1: TSearchFind;
  SearchFindNext1: TSearchFindNext;
  SearchReplace1: TSearchReplace;
  SearchFindFirst1: TSearchFindFirst;
  FileNew1: TAction;
  FileSave1: TAction;
  FilePrintDlg1: TAction;
  HelpAbout1: TAction;
  Open1: TMenuItem;
  SaveAs1: TMenuItem;
  PrintSetup1: TMenuItem;
  Exit1: TMenuItem;
  New1: TMenuItem;
  Save1: TMenuItem;
  Print1: TMenuItem;
  Cut1: TMenuItem;
  Copy1: TMenuItem;
  Delete1: TMenuItem;
  SelectAll1: TMenuItem;
  Undo1: TMenuItem;
  Delete2: TMenuItem;
  Bold1: TMenuItem;
  Italic1: TMenuItem;
  Underline1: TMenuItem;
  Strikeout1: TMenuItem;
  Bullets1: TMenuItem;
  AlignLeft1: TMenuItem;
  AlignRight1: TMenuItem;
  Center1: TMenuItem;
  Find1: TMenuItem;
  FindNext1: TMenuItem;
  Replace1: TMenuItem;
  FindFirst1: TMenuItem;
  Close1: TMenuItem;
  Cascade1: TMenuItem;
  ileHorizontally1: TMenuItem;
  ileVertically1: TMenuItem;
  MinimizeAll1: TMenuItem;
  Arrange1: TMenuItem;
  Help2: TMenuItem;
  About1: TMenuItem;
  ControlBar1: TControlBar;
  ToolBar1: TToolBar;
  ToolBar2: TToolBar;
  ToolBar3: TToolBar;
  ToolBar4: TToolBar;
  ToolButton1: TToolButton;
  ToolButton2: TToolButton;
  ToolButton3: TToolButton;
  ToolButton4: TToolButton;
  ToolButton5: TToolButton;
  ToolButton6: TToolButton;
  ToolButton7: TToolButton;
  ToolButton8: TToolButton;
  ToolButton9: TToolButton;
  ToolButton10: TToolButton;
  ToolButton11: TToolButton;
  ToolButton12: TToolButton;
  ToolButton13: TToolButton;