[foxito]

Bueno aqui mi solución:

Código Delphi [-]
program ContaSys;
uses
  Forms,
  UFMain in 'UFMain.pas' {FMain},
  Acercade in 'Acercade.pas' {FrmAcercaDe},
  UFLogin in 'UFLogin.pas' {FLogin},
  UMySQL in 'UMySQL.pas',
  IniFiles,
  SysUtils,
  UDMContaSys in 'UDMContaSys.pas' {DataModule1: TDataModule},
  UFCompras_Gastos in 'UFCompras_Gastos.pas' {FComprasGtos},
  FindProv in 'FindProv.pas' {FrmFindProv};
{$R *.res}
begin
  if TFLogin.Execute then
    begin
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      Application.Title := 'ContaSys 1.0.1';
      Application.CreateForm(TDataModule1, DataModule1);
      Application.CreateForm(TFComprasGtos, FComprasGtos);
  with tinifile.create (changefileext(paramstr(0),'.ini')) do
        with DataModule1  do
          begin
            Connect.Catalog    := ReadString('Acceso a BD','Base datos','');
            Connect.Database   := ReadString('Acceso a BD','Base datos','');
            Connect.HostName   := ReadString('Acceso a BD','Servidor','');
            Connect.LoginPrompt:= False;
            Connect.User       := ReadString('Acceso a BD','Usuario','');
            Connect.Password   := 'hecafox';
            Connect.Protocol   := ReadString('Acceso a BD','Proveedor','');
            Connect.Port       := ReadInteger('Acceso a BD','Puerto',0);
            Connect.Connected  := True;
           end;
//      Application.CreateForm(TFMain, FMain);
      Application.Run;
      end
  else
    begin
      Application.MessageBox('No tiene Autorización a entrar a la Aplicación.', 'Advertencia');
    end;
end.