请教各位高手！开机自动运行时碰到的 一个有点难度的问题！！

Question

我的程序开始运行时要连接数据库
program Manager;
uses 
 ....
{$R *.res}
procedure AutoRun;
var
  RegF : TRegistry;
begin
  RegF:=TRegistry.Create;
  try
  RegF.RootKey:=HKEY_LOCAL_MACHINE;
  if RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True) then
  RegF.WriteString('WYJ2000Manager','D:\Manager.exe');
  finally
  RegF.CloseKey;
  RegF.Free;
  end;
end;begin
  Application.Initialize;
  AutoRun;
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  Sleep(1000);
  ConDB := False;
  Application.CreateForm(TMainForm, MainForm);
  SplashForm.Hide;
  SplashForm.Free;
  if not ConDB then             //现在要连接另一台机器上的ORACLE数据库
    Application.Run
  else
    MainForm.Free;
end.
procedure TMainForm.FormCreate(Sender: TObject);
...
begin
...
  try
    ADOConnection1.Open;
  except
    on Exception do
    begin                               //连接出错
      MessageDlg('错误005' + #13 + '连接数据库失败！请检查数据库设置！',
        mtError, [mbOk], 0);
      ConDB := True;              //窗口卸载
      Exit;
    end;
  end;
end;这段程序在开机后手动运行正常，但是在开机时自动运行时提示
“连接数据库失败！请检查数据库设置”我自己认为可能是因为 ：机器启动是要对网络进行初始设置,而当我的程序运行是网络设置还没完成所以连接数据库不能成功。因为在启动时托盘位置还没有出现本地连接图标我的程序就已经运行了。
  不知道自己的分析对不对。请各位高手多多指教如何解决这个问题。

Answer 1

var
  i:integer;
begin
  while (i<5) or not (AdoConnection1.Active) do  //设计数器，可以自己定i的值
  begin
    try 
      Adoconnection1.Open;
    except
    end;
    Sleep(1000);
  end;
  //提示连接失败
end;

Answer 2

写在FormShow事件就可以了，主程序的FormCreate时你的数据库控件还没建立，当然出错了。