[Rc96]

Hola roman si tienes razon pero el problemita que tengo es que al colocar mi codigo en el onShow que es el siguiente

Código Delphi [-]
procedure Tfrmvp.FormShow(Sender: TObject);
  var
  DriverID,DB,User,Pass,Server,Port: String;
begin
//Se obtinen los parametros de conexion del archivo .INI y se conecta a la base de datos
 if FileExists('ConexionBD.ini') then
 begin
    FDPhysPgDriverLink1.VendorLib:='libpq.dll';
    FDConnection1.Params.Clear;
    FDConnection1.Connected:=false;
    FDConnection1.Params.DriverID:='PG';
    Conexion:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'ConexionBD.ini');
     with Conexion do
   begin
    DB:= Conexion.ReadString('Conexion', 'DataBase', '');
    User:= Conexion.ReadString('Conexion', 'User_Name', '');
    Pass:= Conexion.ReadString('Conexion', 'Password', '');
    Server:= Conexion.ReadString('Conexion', 'Server', '');
    Port:= Conexion.ReadString('Conexion', 'Port', '');
   end;
      with Conexion do
   begin
    FDConnection1.Params.Add( 'Server=' + Server  );
    FDConnection1.Params.Database:=DB;
    FDConnection1.Params.UserName:=User;
    FDConnection1.Params.Password:=Pass;
    FDConnection1.Connected:=True;
   end;
   Usercontrol1.Logoff;
 end
 else
 begin
//  {En caso de no existir ConexionBD.ini}
  if FileExists('Orig_ConexionBD.ini') then
  begin
    FDPhysPgDriverLink1.VendorLib:='libpq.dll';
    FDConnection1.Params.Clear;
    FDConnection1.Connected:=false;
    FDConnection1.Params.DriverID:='PG';
    Conexion:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'Orig_ConexionBD.ini');
     with Conexion do
   begin
    DB:= Conexion.ReadString('Conexion', 'DataBase', '');
    User:= Conexion.ReadString('Conexion', 'User_Name', '');
    Pass:= Conexion.ReadString('Conexion', 'Password', '');
    Server:= Conexion.ReadString('Conexion', 'Server', '');
    Port:= Conexion.ReadString('Conexion', 'Port', '');
   end;
      with Conexion do
   begin
    FDConnection1.Params.Add( 'Server=' + Server  );
    FDConnection1.Params.Database:=DB;
    FDConnection1.Params.UserName:=User;
    FDConnection1.Params.Password:=Pass;
    FDConnection1.Connected:=True;
   end;
   Usercontrol1.Logoff;
  end
  else
  begin
//  {Se mostrara el modulo de conexion de la base datos
//   en caso de no existir el archivo .ini}
   ShowMessage('BIENVENIDO');
   FrmConfig.ShowModal;
  end;
 end;

end;

Veras cuando existe el archivo ini con los parametros de conexion todo bien pero cuando no existe deberia mandarme al formalario donde especifico los parametros pero me sale este error https://ibb.co/njbktR cosa que en el onPaint no me da.