ændre bogstaver

Hvordan gør jeg sådan, at hver gang der skrives f.eks. R i en memo, så ændres det til B?

- Tak.
Besøg: http://www.interflare.tk

Kode 

if key = 'R' then
   key := 'B';

Kode 

Memoen.Lines := StringReplace(Memoen.Lines, 'R', 'B', [rfReplaceAll]);

Kode 

Memo1.Lines := StringReplace(Memo1.Lines, 'Kat', 'Hat', [rfReplaceAll]);

Kode 

Memo1.Lines := StringReplace(Memo1.Lines, 'Kat', 'Hat', [rfReplaceAll, rfIgnoreCase]);