Hola gdlrinfo.
Otra opción:
Código Delphi
[-]
function ExtractDateSinceT(const str: string): string;
var
p: Integer;
begin
p := Pos('T', str);
if p <> 0 then
Result := Copy(str, p+1, 8);
end;
O, para obtenerla a partir de cualquier caracter:
Código Delphi
[-]
function ExtractDateSinceChar(const str: string; const Ch: Char): string;
var
p: Integer;
begin
p := Pos(Ch, str);
if p <> 0 then
Result := Copy(str, p+1, 8);
end;
Saludos