Delphi6 personal, Windows95 OSR2を使ってます。

StringReplaceで半角カナを全角カナに変換する関数を作っているのですが、
目的の文字列に変換できません。

function KanaHanToZen(data: string): string;
// 半角カナを全角カナに変換する処理
var
TRF: TReplaceFlags;
begin
TRF := [rfReplaceAll];
data := stringReplace(data, 'ﾊﾞ', 'バ', TRF);
data := stringReplace(data, 'ﾊﾟ', 'パ', TRF);
Result := data;
end;

ﾊﾞ　が　ハﾞになり、ﾊﾟ　が　ハﾟになる。
他の文字は、ｱはアとなるのですが、どうやら濁音と半濁音が正常に変換されないようです。
こういう場合、どうしたらよいのでしょうか？他に代替案はありますでしょうか？
よろしくお願いいたします。