Versuch mal
System.SysUtils.LastDelimiter
Delphi-Quellcode:
for i := Memo1.Lines.Count - 1 downto 0 do
begin
sLine := Memo1.Lines[i];
iPos := System.SysUtils.LastDelimiter('%', sLine);
if iPos > 7 then
.....
end;
Den Rest mit 7tes oder 8tes Zeichen habe ich ehrlich gesagt nicht kapiert.