Hola kirios.
Intentá de este modo:
Código Delphi
[-]
Writeln(arch, Format('%8.8f %8.8f %8.8f', [Sin((2*pi*(x-i))/23), Sin((2*pi*(x-i))/28), Sin((2*pi*(x-i))/33)]));
Revisá en la ayuda de Delphi:
Format strings por los diferentes especificadores de formato.
Saludos.