Podes valerte de la función Format
Algo como:
Código Delphi
[-]
Cadena := format('%8.8s %7.7s %3.3s %15.15s %8.8s',
[fecha, hora, ext, phone, duracion]);
He usado %s porque veo que ya todo está en strings, pero podes visitar la ayuda y ver los tipos soportados si hay algo que se adapte mejor.
Hasta luego.
