Problema con Rewrite

[[Lepe]]

Las líneas en blanco las elimina el compilador antes de hacer el ejecutable, así que... no van por ahí los tiros.

Lo que veo en un principio, es que pasas la ruta relativa, por tanto, el archivo se creará en el directorio de windows o a saber donde.

No usas ninguna estructura try except para cerrar el archivo en caso de problemas y precisamente ese es el 'I/O ERROR 32' el archivo ya se encuentra abierto (habrás pulsado dos veces en el botón de abrir el archivo).

Por otra parte, no compruebas si el directorio donde se va a crear existe o no (el usuario puede borrar cualquier carpeta), haz un ForceDirectories si es necesario.

Saludos

[[Lepe]]

Un detalle para ambos:

Si el archivo o la ruta puede tener espacios en su nombre, o ser mayor a 8 caracteres, usad dobles comillas para encerrarlo todo, la ruta y nombre de archivo:

Código Delphi [-]
var ruta:string;
begin
ruta := '"c:\Archivos de programa\mi programa\ip_servidor.txt"';
// observen, primero una comilla simple, para iniciar un string y dentro las dobles 
// comillas tipográficas. Al terminar la ruta, al contrario.

AssignFile(F,ruta);

Saludos