[Alegun]

Вот как вариант

Код:

var
 s : string;
 dt: TDateTime;
begin
 s:= 'TE_000024_20150204';
 dt:= VarToDateTime(
 Copy(s,Length(s)-7,4) + '.' +
 Copy(s,Length(s)-3,2) + '.' +
 Copy(s, Length(s)-1,2));
end;