我编写的一个程序，在运行后出现错误：应用程序正常初始化（0×80000003）失败，请单击“确定”，终止应用程序。单击确定后，出现一个用汇编语言写的CPU程序，可能是叫我修改吧，Close后出现系统提示错误信息：Access violation at address 00967FD2 in module 'coredie70.bpl'. Read of address 00000000.我以为是Delphi问题，重新安装了n次了，但是还是不行，我以为是我的程序哪里出现了问题，但是新建一个Project，单击运行后，还是出现这个错误啊。我在想是不是机器有问题呢？请各路高手指点迷津啊，我是个新手，没有多少分，有朝一日，必将图报，：），谢谢了。
有可能是你写的什么东西使内存不能释放。
最终极的办法，coms放电。哈哈·！
请问这个也是因为程序没有运行完全造成的吗？盼望各位好心的好同志给我个答案，好不好 啊，
应该仍然是前一个问题的继续，指针错误
program BookStore;uses
Forms,
Mainwin in 'Mainwin.pas' {F_Mainwin},
DataModule in 'DataModule.pas' {DataModule1: TDataModule},
childwin in 'childwin.pas' {MDIChild},
publish in 'publish.pas' {F_Publish},
Receive in 'Receive.pas' {F_Receive},
Send in 'Send.pas' {F_Send},
All in 'All.pas' {F_All},
About in 'About.pas' {AboutBox},
Login in 'Login.pas' {F_Login};{$R *.res}begin
Application.Initialize;
F_Login:=TF_Login.Create(Application);
F_Login.Show;
F_Login.Update;
Application.CreateForm(TF_Mainwin, F_Mainwin);
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TMDIChild, MDIChild);
Application.CreateForm(TF_Publish, F_Publish);
Application.CreateForm(TF_Receive, F_Receive);
Application.CreateForm(TF_Send, F_Send);
Application.CreateForm(TF_All, F_All);
Application.CreateForm(TAboutBox, AboutBox);
F_Login.Hide;
F_Login.Free;
Application.Run;
end
这是主窗口
unit Mainwin;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ImgList, ComCtrls, ToolWin, StdActns, ActnList;type
TF_Mainwin = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
M_Publish: TMenuItem;
M_Quit: TMenuItem;
N2: TMenuItem;
R1: TMenuItem;
M_Receive: TMenuItem;
N3: TMenuItem;
S1: TMenuItem;
M_Send: TMenuItem;
N4: TMenuItem;
A1: TMenuItem;
M_All: TMenuItem;
N5: TMenuItem;
H1: TMenuItem;
M_Help: TMenuItem;
StatusBar1: TStatusBar;
ImageList1: TImageList;
N6: TMenuItem;
ToolBar1: TToolBar;
TB_Publish: TToolButton;
TB_Exit: TToolButton;
TB_Receive: TToolButton;
TB_Send: TToolButton;
TB_All: TToolButton;
TB_Help: TToolButton;
ActionList1: TActionList;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowMinimizeAll1: TWindowMinimizeAll;
WindowTileVertical1: TWindowTileVertical;
M_window: TMenuItem;
M_cascade: TMenuItem;
M_title_v: TMenuItem;
M_title_h: TMenuItem;
M_mini_all: TMenuItem;
TB_cascade: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
procedure M_PublishClick(Sender: TObject);
procedure M_QuitClick(Sender: TObject);
procedure M_ReceiveClick(Sender: TObject);
procedure M_SendClick(Sender: TObject);
procedure M_AllClick(Sender: TObject);
procedure M_HelpClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
F_Mainwin: TF_Mainwin;
i:Integer;implementationuses publish,DataModule,Receive,Send,All, About, childwin;{$R *.dfm}procedure TF_Mainwin.M_PublishClick(Sender: TObject);
begin
Application.CreateForm(TF_Publish,F_Publish);
end;procedure TF_Mainwin.M_QuitClick(Sender: TObject);
begin
Close;
end;procedure TF_Mainwin.M_ReceiveClick(Sender: TObject);
begin
Application.CreateForm(TF_Receive,F_Receive);
end;procedure TF_Mainwin.M_SendClick(Sender: TObject);
begin
Application.CreateForm(TF_Send,F_Send);
end;procedure TF_Mainwin.M_AllClick(Sender: TObject);
begin
Application.CreateForm(TF_All,F_All);
end;procedure TF_Mainwin.M_HelpClick(Sender: TObject);
begin
AboutBox.ShowModal;
end;procedure TF_Mainwin.FormCreate(Sender: TObject);beginStatusBar1.Panels[1].Text:='»¶Ó­Ê¹Óñ¾ÏµÍ³!';
end;end.这是数据窗口
unit DataModule;interface//uses
// SysUtils, Classes, DB, DBTables;uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, ADODB;type
TDataModule1 = class(TDataModule)
Database: TDatabase;
T_Publishbook: TTable;
DS_Publishbook: TDataSource;
T_Receivebook: TTable;
DS_Receivebook: TDataSource;
T_Sendbook: TTable;
DS_Sendbook: TDataSource;
T_Allbook: TTable;
DS_Allbook: TDataSource;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
private
{ Private declarations }
public
{ Public declarations }
end;var
DataModule1: TDataModule1;implementation{$R *.dfm}end我都不知道哪里调用错误了，也没有用过内存调用，也没有用Strtofloat函数，我真的没有辙了。在没有修改数据窗口之前，我的程序运行正常，但我把数据库从interbase转到sqlserver后，就出现了这个问题，我都不懂发生啥了，唉
Application.CreateForm(TDataModule1, DataModule1);你把 Application.CreateForm(TDataModule1, DataModule1);放在 Application.CreateForm(TF_Mainwin, F_Mainwin);前面试试.