运行出错问题

Question

程序编译的时候正常，但是点运行的时候，在begin这个位置上就出现错误，CPU窗口就弹出来了，说是写地址错误。请问这一般是什么原因引起的？

Answer 1

program WorkStation;
     
uses
  Forms,
  Sysutils,
  Registry,
  Windows,
  WinSock,
  formMain in 'formMain.pas' {frmMain},
  Module in 'Module.pas' {DataM: TDataModule},
  firstUseform in 'firstUseform.pas' {firstUsefrm},
  UPublic in 'UPublic.pas',
  FindUserForm in 'FindUserForm.pas' {FindUserFrm},
  UnitAboutBox in 'UnitAboutBox.pas' {frmAboutBox},
  UnitLoginDlgDot in 'UnitLoginDlgDot.pas' {FrmLoginDlgDot},
  Meterinputform in 'Meterinputform.pas' {Meterinputfrm},
  MeterinputYhhform in 'MeterinputYhhform.pas' {MeterinputYhhfrm},
  Inputdmform in 'Inputdmform.pas' {InputDmfrm},
  lskpFrm in 'lskpFrm.pas' {lskpForm},
  ptkpForm in 'ptkpForm.pas' {ptkpFrm},
  InputLsdmform in 'InputLsdmform.pas' {InputLsdmfrm},
  qkkpForm in 'qkkpForm.pas' {qkkpFrm},
  InputQKdmform in 'InputQKdmform.pas' {InputQKdmfrm},
  Sktjform in 'Sktjform.pas' {Sktjfrm},
  SktjRep in 'SktjRep.pas' {RepSktj: TQuickRep},
  NOinputform in 'NOinputform.pas' {NOinputfrm},
  noinputbbform in 'noinputbbform.pas' {noinputbbfrm},
  NoMoneyForm in 'NoMoneyForm.pas' {NoMoneyFrm},
  Yhdaform in 'Yhdaform.pas' {frmYhda},
  searchbbform in 'searchbbform.pas' {searchbbfrm},
  Inquiry_9Rep in 'Inquiry_9Rep.pas' {RepInquiry_9: TQuickRep},
  ByqSelectForm in 'ByqSelectForm.pas' {ByqSelectfrm},
  Fpform in 'Fpform.pas' {Fpfrm},
  KaiPiaoform in 'KaiPiaoform.pas' {KaiPiaofrm},
  UnitSplash in 'UnitSplash.pas' {frmSplash},
  backupForm in 'backupForm.pas' {Backupfrm},
  kpqkform in 'kpqkform.pas' {kpqkfrm},
  kptjbbbform in 'kptjbbbform.pas' {kptjbbbfrm},
  kptjbbform in 'kptjbbform.pas' {kptjbbfrm},
  DownFpDataForm in 'DownFpDataForm.pas' {DownFpDataFrm},
  DownCbDataForm in 'DownCbDataForm.pas' {DownCbDataFrm},
  UpCbDataForm in 'UpCbDataForm.pas' {UpCbDataFrm},
  UpFpDataForm in 'UpFpDataForm.pas' {UpFpDataFrm},
  qdInputQKdmform in 'qdInputQKdmform.pas' {qdInputQKdmfrm},
  PrintQdform in 'PrintQdform.pas' {PrintQdfrm},
  qdkpForm in 'qdkpForm.pas' {qdkpFrm},
  qdqkkpForm in 'qdqkkpForm.pas' {qdqkkpFrm},
  qdptkpForm in 'qdptkpForm.pas' {qdptkpFrm},
  qdInputdmform in 'qdInputdmform.pas' {qdInputDmfrm},
  UpDownFrom in 'UpDownFrom.pas' {UpDownFrm},
  CheckCBFrom in 'CheckCBFrom.pas' {CheckCBFrm},
  SfyForm in 'SfyForm.pas' {SfyFrm},
  InsertQkDataForm in 'InsertQkDataForm.pas' {InsertQKDataFrm},
  OutQkDataForm in 'OutQkDataForm.pas' {OutQkDataFrm},
  kptjbbb1Form in 'kptjbbb1Form.pas' {kptjbbb1},
  SendFpForm in 'SendFpForm.pas' {SendFpFrm},
  CallBackForm in 'CallBackForm.pas' {CallBackFrm},
  FpProForm in 'FpProForm.pas' {FpProfrm},
  findNullform in 'findNullform.pas' {findNullfrm},
  ReLoadForm in 'ReLoadForm.pas' {ReLoadFrm},
  PrintDQdform in 'PrintDQdform.pas' {PrintDQdfrm},
  dqdkpForm in 'dqdkpForm.pas' {dqdkpFrm},
  MoreFpForm in 'MoreFpForm.pas' {MoreFpFrm},
  UpDfpForm in 'UpDfpForm.pas' {UpDfpFrm},
  Orderform in 'Orderform.pas' {frmOrder},
  ChargeCal in 'ChargeCal.pas',
  CreateFpform in 'CreateFpform.pas' {CreateFpfrm},
  UpErrorForm in 'UpErrorForm.pas' {UpErrorFrm},
  xsbbform in 'xsbbform.pas' {xsbbfrm},
  xsReportForm in 'xsReportForm.pas' {xsReportFrm},
  HJSUpDownForm in 'HJSUpDownForm.pas' {HJSUpDownFrm},
  UpDownCbqFrom in 'UpDownCbqFrom.pas' {UpDownCbqFrm},
  RightFindForm in 'RightFindForm.pas' {RightFindFrm},
  xptkpForm in 'xptkpForm.pas' {xptkpFrm};{$R *.RES}
var
  Reg:TRegistry;
  tempStr : String ;
  Sch : String;
  m : LongInt ;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
  conn : Boolean ;
begin  <-----走到这里就中止运行，出现CPU窗口了,代码太长了，就不贴完了，少说都有4万行