Пример кода : Нахождение последней позиции 1 или более символов в строке
var
source, find : string;
position : Integer;
begin // Создание строки
source := '12345678901234567890'; // Нахождение позиции последней 1
position := LastDelimiter('1', source);
ShowMessage('Последняя 1 в '+IntToStr(position)+' позиции'); // Нахождение позиции последней 2, 4 или 6
position := LastDelimiter('246', source);
ShowMessage('Последняя 2, 4 или 6 в '+IntToStr(position)+' позиции');
end;
Последняя 1 в 11 позиции
Последняя 2, 4 или 6 в 16 позиции