Öhm wo ist das Problem?
Setze doch eine Variable die sobald dein String gefunden wurde auf 3 gesetzt wird und
am anfang der For-Schleife einen If-Block der das abfragt.
Delphi-Quellcode:
k := 10;
x := 0;
for j := k
to Length(head)
do
if x = 0
then
begin
...
k := k + 5;
if head = '
ab hier übersrpinge die nächsten 3 strings'
then x := 4;
end else dec(x);
Edit: Der Post bezieht sich auf dene Frage bei #3
Gruß
Stormy