Guardar archivo en delphi

[Maria85]

Hola a tod@os:

Estoy creando una aplicacion que pueda abrir archivos, modificarles y guardarles, con extensión .psc
Al crear uno nuevo funciona bien y al abrir uno ya exo tambien. El problema que tengo es al guardarle que me da un error que no se porque es.
El trozo de código donde guarda es el siguiente:

Código Delphi [-]
 
procedure TTFormMain.OpcionGuardar(Sender: TObject);
 var
  fichTrabajo: string;
  pest: integer;
  
begin
    pest := numeroPestanaActual();

    if listaVentanas[pest].guardado = false then
          
          OpcionGuardar(Sender)
    else
      begin
          fichTrabajo:=obtenerNombrePestana(nombreFicheroTmp);
          delete(fichTrabajo,pos('.',fichTrabajo),length(fichTrabajo));
          insert(listaVentanas[pest].carpetaTrabajo,fichTrabajo,1);
          DialogoGuardar.FileName:=fichTrabajo+'.psc';
          listaVentanas[pest].editor.Lines.SaveToFile(DialogoGuardar.FileName);
          listaVentanas[pest].modificado:=false;
          listaVentanas[pest].guardado := true;
          guardarOk := true;
      end;

end;

El error que me da es el siguiente:

"Project PseudoCode.exe encountered unhandled exception class System.StackOverFlowException"

Si alguien me pudira decir por donde está mi error...

Muchas gracias

[Neftali [Germán.Estévez]]

Hola Maria.
Para próximas ocasiones, creo que es mejor que continues con el hilo original. Aunque la pregunta es diferente la información que hay allí puede ser útil.

La pregunta es la misma que ya te hice en el otro hilo.
¿Cual es la línea que te da el error? (ejecuta paso a paso).

Tiene pinta de bucle infinito o llamada recursiva, pero en ese código...