Application这个对象是在哪个单元里创建的？(100分)

Delphi6中Application这个对象是在哪个单元里创建的，在哪个单元里释放的。
我在Delphi中始终没有找到
Application:＝TApplication.Create;和Application.Free的语句。
只在Form单元看到 Application: TApplication;

Forms

但在Forms中没有见到Application:＝TApplication.Create;和Application.Free的语句。

不是在project中吗？

unit Forms

to superjs：
去打开delphi看一下，project1.dpr中有吗？
to lujr，吴剑明：
在Forms中的第几行？
不要对我说是在Forms中的第1198行的“Application: TApplication;”这一句。
我很感谢大家为我解决问题，但也很讨厌看见问题不经过大脑就信口开河的灌水。

应该在程序文件Program 中(Application.Initialize之前)隐式自动创建的,
并在程序结束时自动释放

哈哈，收分了： controls.pas 的最下边
{ Initialization and cleanup }

procedure DoneControls;
begin
Application.Free;
Application := nil;
Screen.Free;
Screen := nil;
Mouse.Free;
Mouse := nil;
CanvasList.Free;
GlobalDeleteAtom(ControlAtom);
GlobalDeleteAtom(WindowAtom);
if IMM32DLL <> 0 then FreeLibrary(IMM32DLL);
end;

procedure InitControls;
var
AtomText: array[0..31] of Char;
begin
WindowAtom := GlobalAddAtom(StrFmt(AtomText, 'Delphi%.8X',
[GetCurrentProcessID]));
ControlAtom := GlobalAddAtom(
StrFmt(AtomText, 'ControlOfs%.8X%.8X', [HInstance, GetCurrentThreadID]));
CanvasList := TThreadList.Create;
InitIMM32;
Mouse := TMouse.Create;
Screen := TScreen.Create(nil);
Application := TApplication.Create(nil);
InitCtl3D;
Application.ShowHint := True;
RegisterIntegerConsts(TypeInfo(TCursor), IdentToCursor, CursorToIdent);
end;

initialization
NewStyleControls := Lo(GetVersion) >= 4;
InitControls;

finalization
DockSiteList.Free;
DoneControls;

我最喜欢看Delphi的源码了[]就是没时间没机器看。准备买个掌上宝啥的，拷进去，揣兜里，有空就看。

随便一找就在controls.pas 里找到了.
我看是你自己没大脑吧.

to 吴剑明
不要看到人家说了在contrl中就也说着说在contrls.pas随便一找就找到了。
知道的话第一次怎么说是在Forms中呢？
不要把人家的功劳往自己脸上贴嘛，好不好意思？

谢谢，给分了。

简直不要脸.好心给他答问题还这种态度!
世界上就是多你这种懒虫,所以DFW里垃圾就越来越多.