[Khronos]

Hola, te recomiendo que leas la guia de estílo.

Si vas a operar con archivos no puedes utilizar una variable string porque su tamaño es muy grande y no está delimitado, por eso es mejor establecer un packed record y delimitar el tamaño del string a 255 caracteres.

Código Delphi [-]
 
type 
TConf = packed record 
archivo: String[255]; 
narchivo: integer; 
ale_pase: boolean; 
ch1:boolean; 
ch2:boolean; 
end;
FConf = File of TConf;
 
function cf_save(cf: Tconf): FConf;
 
//o bien
 
procedure cf_save(cf: TConf; out Conf: FConf);

Saludos.