Range Error

[DarkFilter]

Ke tal.
Tengo un problema con un programa ke estoy haciendo, lo ke hace el programa es guardar datos utilizando un savedialog, el problema es ke cuando termina de guardar y kiero volver a guardar otros datos me aparece este error: "ERange Error ... Range Check Error". Como soluciono esto?... tengo ke limpiar mediante un clear o algo asi?
Gracias por cualkier sugerencia.

[madriles]

hola
lo que necesitamos es un poco de codigo, para saber como lo guardas.
lo mas probable es que el error este en el codigo del SaveDialog, ponlo aqui y veremos que pasa
un saludo

[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.

[delphi.com.ar]

A simple vista no se ve que trabajes con nada que pueda producir este error... ¿Haces algo en algún evento que no has puesto aquí?.. ¿Que sucede cuando muestras el Form3?