[ecfisa]

Hola BlueSteel.

Coincido con lo que dice el amigo rrf.
Hice la prueba de este modo y no me dió ningún error:

Código Delphi [-]
function TextoAFechayHora(S:String):TDateTime;
var
  aa,mm,dd,hh,mn,ss,ms:Word;
begin
  try
   dd:= StrToInt(Copy(s,1,2));
   mm:= StrToInt(Copy(s,4,2));
   aa:= StrToInt(copy(s,7,4));
   hh:=StrToInt(Copy(s,12,2));
   mn:=StrToInt(Copy(s,15,2));
   ss:=StrToInt(Copy(s,18,2));
   ms:=00;
   Result:= EncodeDateTime(aa, mm, dd, hh, mn, ss, ms);
  except
   raise Exception.Create('Formato inválido');
  end
end;

Con esta llamada:

Código Delphi [-]
...
  vFecha:= DateToStr(Now);
  vHora:= TimeToStr(Now);
  TextoAFechayHora(Concat(vFecha,' ',vHora));
...

Un saludo.