string durchsuchen und tipps zu while + for-schleifen

[delphi-n]

wo sollte ich das hinsetzen?

P.S.: Eig. könnte ich aus der for-schleife auch wieder eine While-Schleife machen, dann gings