Range Error

[DarkFilter]

Gracias. Acá te dejo parte del código:

DEFINICION DE VARIABLES
***********************

Archivo,ArchivoCorrientes,ArchivoPotencias,ArchivoTHD,
ArchivoTransientes,ArchivoArmonicos: File of Double;

nombreArchivo,NombreCorrientes,NombrePotencias,NombreTHD,
NombreTransientes,NombreArmonicos: String;


ASIGNACION
**********************

AssignFile(Archivo,nombreArchivo);
Rewrite(Archivo);

AssignFile(ArchivoTHD,nombreTHD);
Rewrite(ArchivoTHD);

AssignFile(ArchivoPotencias,NombrePotencias);
Rewrite(ArchivoPotencias);

AssignFile(ArchivoTransientes,NombreTransientes);
Rewrite(ArchivoTransientes);

AssignFile(ArchivoArmonicos,nombreArmonicos);
Rewrite(ArchivoArmonicos);

************************************
PROCEDIMIENTO DE EJECUCION DE SAVEDIALOG
************************************

procedure TForm1.Button2Click(Sender: TObject);
var
begin
if (form8.radiobutton1.checked=false) and (form8.radiobutton2.checked=false) then begin
ShowMessage('Necesita seleccionar una medición monofásica o trifásica, para esto '+
'presione el botón configurar. Si no desea continuar, presione Cancelar');
exit;end;

SaveDialog1.Title:='Almacenamiento de datos';

if SaveDialog1.Execute then begin
NombreArchivo:=SaveDialog1.Filename;
NombreTHD:=NombreArchivo + 'THD';
NombreArmonicos:=NombreArchivo + 'Armonicos';
NombrePotencias:=NombreArchivo + 'Potencias';
NombreTransientes:=NombreArchivo + 'Transientes';
Form3.Show;
Form1.Enabled:=False;
end;
end;

****************************
TERMINO DE ALMACENAMIENTO *
****************************
procedure TForm3.FormOnClose(Sender: TObject; var Action: TCloseAction);
begin
Timer1.Enabled:=False;
CloseFile(Archivo);
CloseFile(ArchivoTHD);
CloseFile(ArchivoPotencias);
CloseFile(ArchivoTransientes);
CloseFile(ArchivoArmonicos);
end;

//**********************************


No he podido encontrar que estoy haciendo mal. Gracias por cualkier ayuda.