Zitat von
mkinzler:
Warum suchst du nicht sie position des letzten Leerzeichens (pos/posex) und löscht dann von dieser Position an, ist flexibler und funktioniert auch wenn letztes Wort anders heißt.
wie macht man denn das?
so?:
for j := PosEx(memo1.Text,'AND',length(memo1.Text)-5) to length(Memo1.Text) do
Memo1.Lines.Delete(j);