Hola.
Se me ocurre que podés utilizar la función
StringOfChar a ese efecto:
Código Delphi
[-]
Fecha:= IntToStr(Year)+'-'+IntToStr(Month)+'-'+IntToStr(Day)+' T '+
IntToStr(Hour)+':'+IntToStr(Min)+':'+
StringOfChar('0',2-Length(IntToStr(Sec)))+IntToStr(Sec);
Saludos.