[pokexperto1]

Gracias a todo al final ya esta solucionado.
Por si a alguien le interesa el codigo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if fileexists(directorio + 'ini.ini') then
  begin
  cargarinis;
  end
  else
  begin
    Errorinicio();
  end;
  directorio := getcurrentdir;
  try
    form2.fondo1.Picture.LoadFromFile(directorio + 'fondo1.jpg');
    form2.fondo2.Picture.LoadFromFile(directorio + 'fondo2.jpg');
    form2.platoentero.Picture.LoadFromFile(directorio + 'plato_entero.png');
    form2.platoroto.Picture.LoadFromFile(directorio + 'plato_roto.png');
  except
    Errorinicio();
  end;
end;

procedure TForm1.Errorinicio();
var
  sel: integer;
  error: integer;
begin
  sel := MessageDlg
    ('Parece ser que no tienes los archivos necesarios para el juego, ¿Quieres que lo solucione?',
    mtError, mbOKCancel, 0);
  if sel = 1 then
  begin
    sel := MessageDlg('Se va a abrir el navegador. ¿Proceder?...', mtCustom,
      mbOKCancel, 0);
    if sel = 1 then
      error := ShellExecute(Handle, 'open', 'descargar.htm', nil, nil, SW_SHOW);
      if (error <= 32) then
        sel := MessageDlg
          ('No se ha encontrado el archivo de recuperación, reinstala el juego por favor',
          mtCustom, [mbOk], 0);
      application.Terminate;
    end
  else
  begin
    sel := MessageDlg('El juego se va a cerrar', mtCustom, [mbOk], 0);
    application.Terminate;
  end;
end;