Memo1.Lines.Add(ReplaceCharInString(s,'タ゛','ダ'));
とすると、'ダ'に変換されるのですが

ただ、次のように変数になると動かない。不思議。
Result := ReplaceCharInString(s,dakuten[i],dakuon[i]);