var
ConnectionService := TConnService;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
ConnectionService := TConnService.Create(Application);
end;
destructor TfrmMain.Destroy;
ConnectionService.Free//執行這裡時出錯,原因使用Application當Owner
//,在這之前Application自動把ConnectionService釋放掉了(把Owner為Application的都釋放掉了)
inherited;
這樣會出錯,frmMain為Application的主窗體