Das fehlen ja auch Klammern. Muss man denn jede Kleinigkeit vorkauen?
ok ... jetzt geht es aber es gebinnt immernoch bei 10 und nicht 1.
Dann mach doch
i:=Memo1.Lines-i;
Ob da jetzt für die richtige Zählung
+1
oder
-1
von Nöten ist mußt Du bitte selbst heraus finden.
Gruß
K-H