[marcoszorrilla]

Prueba a adaptar este ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
s:String;
begin
s:='Esto es un ejemplo';
for i:=1 to lengtH(s) do
begin
 If pos(' ',S) > 0 then
 S[Pos(' ', S)] := '0';
end;

Un Saludo.