[lmikle]

Ну, в принципе, код почти нормальный, хотя можно попробовать и оптимизировать.

Код:

var
  s : String;
begin
  // Сл. 2 строки убирают обращение к листу,
  // Даже с учетом копирования данных будет быстрее.
  S := XMLList['FileName'];
  S := Copy(S,Pos('TE_00024_',S) + 10,8);

  // Теперь собираем дату и вычитаем 1 день.
  Result := EncodeDate(StrToInt(Copy(S,1,4)),StrToInt(Copy(S,5,2)),StrToInt(Copy(S,7,2))) - 1;
end;