#pas
'\':
begin
inc(mInd);
if M[mInd] = Str[sInd] then begin
inc(sInd); inc(mInd);
end else Break;
end;
Да, я понимаю, это будет кушать немного лишнего размера... да и совместимость пострадает, если изменить текущий компонент (тогда придется делать новый), но думаю будет полезно иметь еще одну полезную функцию StrMask
------------ Дoбавленo в 14.57:
Так же, думаю можно еще подумать над спец-символом для обозначение не одного любого символа, а одной любой буквы (не цифры)