Da hilft die die Funktion Pos() weiter.
in deinem Fall wäre der Aufruf dann (wahrscheinlich)
Delphi-Quellcode:
procedure Test
var position:integer;
begin
position:=Pos('%
',Memo1.Lines.Text);
end;
dann hast du in position die Stelle an der das %
steht. davon gehst du 3 stellen zurueck. dann bist du da wo bei 100% die 1 steht. Schaust ob an der Stelle im text ne 1 steht oder nicht und kopierst je nachdem 3 oder 2 zeichen.
Das Zeichen an einer bestimmten Position im Text bekommst du mit Memo1.Lines.Text[ZEICHENNUMMER]
in dem Fall waere es dann Memo1.Lines.Text[position-3]
mfg
Volle