[Uniq!]

Когда-то, на скорую руку, написал вот такой код:

Код:

      YY := Copy(XMLList['FileName'], Pos('TE_000024_', XMLList['FileName']) + 10, 4);
      MM := Copy(XMLList['FileName'], Pos('TE_000024_', XMLList['FileName']) + 14, 2);
      DD := Copy(XMLList['FileName'], Pos('TE_000024_', XMLList['FileName']) + 16, 2);
      WorkDate := IncDay(StrToDate(DD + '.' + MM + '.' + YY), -1);

Помогите упростить пожалуйста.

Исходная строка (XMLList['FileName']) может принимать следующие значения:
TE_000024_20150707
TE_000024_20150707_2
TE_000024_20150707_3

На выходе нужно получить TDateTime, чтоб потом уменьшит дату на 1 день