En ese caso, puedes hacer algo como esto:
Código Delphi
[-]
function FormatearFechaHora(Cadena: String): String;
var
Y, M, D, H, N, S: Integer;
DT: TDateTime;
begin
Y := StrToInt(Copy(Cadena, 1, 4));
M := StrToInt(Copy(Cadena, 5, 2));
D := StrToInt(Copy(Cadena, 7, 2));
H := StrToInt(Copy(Cadena, 9, 2));
N := StrToInt(Copy(Cadena, 11, 2));
S := StrToInt(Copy(Cadena, 13, 2));
DT := EncodeDateTime(Y, M, D, H, N, S, 0);
Result := FormatDateTime('yyyy-mm-dd"T"hh:mm:ss', DT);
end;
// Saludos