Necesito ayuda con el manejo de archivos usando delphi 7

[mauser1985]

Sr. Coso modifique todo lo que ud sugirio ya no me sale la excepcion pero el archivo no me lo guarada como antes

[[coso]]

y lo del hola te sale??

[[coso]]

perdon, al reves : Pos('*Element',slFile[i]) altas horas ya por aqui

[mauser1985]

Buerno disculpe la molestia de verdad que verguenza con usted es que esto ya me tiene de cabeza, le acabo de modificar el pos, y ni me graba el archivo ni me sale el mensaje hola...

begin
flginicio:=false;
flgfin:= false;
numerofile:=1;
for i:=0 to slfile.count - 1 do
begin
if slfile[i]= '*Node' then
flginicio:=true;
continue;
if Pos('*Element, type=C3D4',slFile[i]) <> 0 then
flgfin:=true;
continue;
showmessage(' Holaaaaa ');
if (flgInicio=True) and (flgFin=False) then
slFileNuevo.Add(slFile[i]);

if flgFin=True then
begin
slFileNuevo.Add(Trim(strscan(PChar(TrimLeft(slFile[i])),',')));

slFileNuevo.SaveToFile(nombre+'.bas');
flgInicio := False;
flgFin := False;
Inc(NumeroFile);
end;
end;
end;

[[coso]]

no, if Pos('*Element',slFile[i]) <> 0...

[mauser1985]

nada no me guarda el archivo

[[coso]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
        ls,lg : TStringList;
        i, n ,r : longint;
        nm,ns : string;
begin
        if OpenDialog1.Execute then nm := OpenDialog1.Filename else exit; // cogemos nombre a cargar
        ls := TStringList.Create;  // creamos lista
        lg := TStringList.Create;  // creamos lista
        ls.LoadFromFile(nm); // cargamos fichero
        ns := ExtractFilePath(Application.Exename) + '\' + Edit1.Text; // preparamos nombre destino
        r := ls.Count; // numero lineas de fichero
        i := 0;
        n := 0;
        while i < r do 
        if Pos('*Node',ls[i]) <> 0 then // si se encuentra '*Node' en ls[i]...
        begin
          inc(i); // para saltar la linea con el node
          inc(n); // numero archivo
          while (Pos('*Element',ls[i]) = 0) and (i < r) do // mientras no se encuentra element y no se ha llegado al final
          begin
            lg.Add(Trim(strscan(PChar(TrimLeft(ls[i])),','))); // añadimos, eliminando la primera columna
            inc(i);
          end;
          lg.SavetoFile(ns + inttostr(n) + '.txt'); // se ha encontrado element o final, grabamos
        end
        else inc(i); // si no, seguimos
        ls.Free; // liberamos
        lg.Free;
end;

es raro, el codigo anterior parecia que no tuviese ningun error. Mañana le echare un vistazo. Este funciona.