UTF8Keypress event

[ajosifoski]

Hi to All

Let say that I have one string with utf8 characters like
st:='љњрјсалкфењоирslfjlsdlksafj';

How can I use UTF8Keypress event to receive one character from keyboard and to make search in string st is character there, and if it is to replace it with some other character, to make new string

Tnx

[typo]

Code: [Select]

var
  st :string;
begin
  st := 'áéí';
  if UTF8Key = 'ã' then
    st := StringReplace(st, 'á', 'ã', [rfReplaceAll]);
  ShowMessage(st);
end;