程序退出时出错:

[Iamfish]

提示信息如下:
---------------------------
Debugger Exception Notification
---------------------------
Project FYManageSystem.exe raised exception class EAssertionFailed with message 'Assertion failure (c:\program files\borland\delphi6\Lib\Classes.pas, line 9376)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

请问可能是哪方面的错误?

procedure TComponent.FreeNotification(AComponent: TComponent);
begin
if (Owner = nil) or (AComponent.Owner <> Owner) then
begin
// Never acquire a reference to a component that is being deleted.
assert(not (csDestroying in (ComponentState + AComponent.ComponentState))); //9376行,出错的那一行.这个Classes.pas用的是Delphi6 RT Update3的
if not Assigned(FFreeNotifies) then FFreeNotifies := TList.Create;
if FFreeNotifies.IndexOf(AComponent) < 0 then
begin
FFreeNotifies.Add(AComponent);
AComponent.FreeNotification(Self);
end;
end;
Include(FComponentState, csFreeNotification);
end;

[Iamfish]

应该不是Classes.pas的问题,因为我有别一个程序编译可以通过.

[江山易改]

assert(not (csDestroying in (ComponentState + AComponent.ComponentState)));
鬼知道你调用的这个定义是什么
csDestroying

[Iamfish]

Classes.pas是Delphi6自带的单元.

我知道是由于我的代码出错.

Assertion failure 一般会是哪方面的错误引起的?

[tonylk]

但不调试程序，大致确定问题出现的位置。

把可能会出错的代码分别屏蔽掉再看结果。