Nada más poner este hilo solucioné el problema: mi servidor estaba bloqueado y por eso me daba error.
Pongo el código por si a alguien le interesa:
{ Cargar parámetros iniciales desde el fichero de Set Up }
UbicacionAplicacion:=ExtractFilePath(Application.ExeName);
AssignFile(fich_setup,UbicacionAplicacion+'\REGI-SET.UP');
{$I-} Reset(fich_setup); {$I+}
if IOResult<>0 then
begin
ShowMessage('No encuentro el archivo de configuración inicial: REGI-SET.UP, el cual'+#13+
'debe estar situado en la carpeta donde está ubicada esta aplicación:'+#13+
UbicacionAplicacion+#13+#13+
'Sin este archivo no es posible abrir esta aplicación.'+#13+
'Pulsa INTRO para cerrarla y solucionar el problema.');
FRMenu.Close;
end
else
begin
readln(fich_setup,cadena); LiteralEmpresa:=cadena;
readln(fich_setup,cadena); LiteralTipoReg:=cadena;
readln(fich_setup,cadena); NombreEscudoPantalla:=cadena;
readln(fich_setup,cadena); NombreEscudoImpresora:=cadena;
readln(fich_setup,cadena); UbicacionBaseDatos:=cadena;
CloseFile(fich_setup);
end;
FRMenu.Image1.Picture.LoadFromFile(UbicacionAplicacion+'\'+NombreEscudoPantalla);
FRMenu.Label1.Caption:=LiteralEmpresa;
FRMenu.Label2.Caption:=LiteralTipoReg;
FRMenu.DataBase1.Directory:=UbicacionBaseDatos; { esto era lo que buscaba }
FRMenu.DataBase1.DataBaseName:='Registro';
FRMenu.DataBase1.Connected:=true;
Gracias a todos, y un saludo.
