[ecfisa]

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