simple for-schleife

[warefare]

etwas ganz simples, aber irgendwie ist heut der wurm drin ..
ich habe eine "for schleife" und er soll den ganzen text zeichen für zeichen durchgehen (to length)
das macht er auch wunderbar, aber er fügt der Liste nicht mehr als EINE Positionsangabe hinzu, selbst wenn er es eigentlich müsste.

Code:

for i:= 1 to length(text) do

begin

if (text[i] = 'i') and (text[i+1] = 'm') and (text[i+2] = 'g') then begin

position_g := Pos('img', text);

  s1 := TStringList.Create;  // StringList erstellen
  try

    s1.Add(inttostr(position_g));          // in SteringList aufnehmen

 finally
 Memo1.Text := s1.Text;
    s1.Free;  // Speicher freigeben
      end;


end

else


end;
end;

Nachdem ich die forensuche mal angeschmissen hatt, habe ich halt noch "continue" und" writeln" hinzugefügt
aber ohne Erfolg.

Bin für jeden Denkanstoß dankbar!