problemas con format y array!!!

[adfa]

Hola a todos:
Deseo formatear un cadena pero añadiendole los parmametros desde codigo y no me a salido.
Estoy intentando hacer algo por el estilo y no me da resultado, como seria la manera correcta.

var
palabra : string;
valores : string;
i : integer
begin
for i := 0 to 100 do
begin
palabra := palabra + ' %s '; //agrego los %s para sustituir
valores := valores + listbox1.items[i]; //armo la cadena con los
if i < 100 then valores := valores + ','; //valores
end;
showmessage(format(palabra,[valores]));
end;

No se si me explique bien.
Espero que alguien me pueda ayudar.
Desde ya gracias.