制作主窗口显示前的版权窗口。

在工程文件中选File->New Form新建一个窗口，设计好窗口的外观。给窗口起名为AboutBox, 

选Project->Options，将新建的窗口从自动建立中去掉。 选View->Project Source，打开工程文件的源文件，在下面加入红色的句子。 

Uses AboutBox 
Var 
lTime :TDateTime; 
Begin 
Application.Initialize(); 
AboutBox:=TAboutBox.Create(AboutBox); 
AboutBox.Show; 
AboutBox.Update; 
lTime:=GetTickCount; 
Application.CreateForm(TMainForm,MainForm); 
while((GetTickCount-lTime) / 1000 <3) do; 
AboutBox.Hide; 
AboutBox.Free; 
Application.Run; 
end;