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