急需各位大虾的帮忙，俺遇到一个问题，怎么在程序开始打开数据库，在主窗体的onshow事件中连接数据库？需要什么步骤？

首先newINIFile逻辑上有问题，实际上只是：
procedure Tfrmmain.newINIFile;
var
      filename:string;
      Tmp:Tstringlist;
begin
    filename:='user.ini';
    if not FileExists(filename) then            //存取用户名
    begin
        Tmp := TStringList.Create;
        Tmp.add('123456');
        tmp.SaveToFile(filename);
    end;
end;
有效。