[lmikle]

Код:

var
  S : String;
begin
  S := Edit1.Text;
  S := StringReplace(S,'Type=1','Type=0',[rfReplaceAll]);
  Edit1.Text := S;
end;

Можно без доп. преобразований. Это просто для наглядности.