[v1s2222]

Ну как видно из текста, надо искать в тексте "0A", и пока не встретиться любая цифра записывать то, что вам надо, т.к.:
0A
ПРОЧЕЕ
ОБСЛУЖИВАНИЕ
0326
Соответственно, то что тебе надо можно взять примерно так:

Код:

s:='';
b:=false;
for i:=1 to Length(text)-1 do
  if(Copy(text, i, 2) = '0A') then
    b:=true;
  if(StrToIntDef(text[i], -1) in 0..9) then
    b:=false;
  if(b) then
    s:=s+text[i];

Может можно легче, но то, что пришло первым в голову
Если что не понятно - спрашивай