Borrar Clave o Seccion de un archivo INI

[martini002]

Bueno estuve leyendo un poco sobre los TStringList
y di al final con este codigo, pero esta presentando un pequeño problema
y realmente no tengo idea de que sera, ya que no se como funciona exactamente el TStringList
La cuestion es que la Variable Posicion comienza en 0 despues de la primera comparacion
cambia a 320 y entra como en un loop infinito algo asi

hechenle un ojito a ver si encuentran algo extraño
Saludos, Gracias!

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
var
  ATemporal:TStringList;
  Posicion:Integer;
  BorrarKey:Boolean;
begin
  ATemporal:= TStringList.Create;
  ATemporal.LoadFromFile('F:\File.Ini');
  for Posicion:= 0 to ATemporal.Count do
    begin
      //Posicion vale 0
      BorrarKey := ATemporal.Find('Suppress=WindowedMode', Posicion);
      //Posicion vale 320 ahora...
      if BorrarKey=True then
        begin
          ATemporal.Delete(Posicion);
          DeleteFile('F:\File.Ini');
          ATemporal.SaveToFile('F:\File.Ini');
        end;
    end;
end;

Intentanto con un While para usar el contador tenemos:

Código Delphi [-]
  Posicion:=50;
  while Posicion < 100 do
    begin
      BorrarKey := ATemporal.Find('Suppress=WindowedMode', Posicion);//Aqui cambia a 320 igual
      Posicion:=Posicion+1;