[NumLock]

числа 1056 1072 1079 1085 1099 1077 преобразуются так:

Код:

  function decoderchar(s: String): String;
  var
    i: Integer;
  begin
    i:= StrToIntDef(s, 32);
    if i=1025 then Result:=Chr(168)
    else if i=1105 then Result:=Chr(184)
    else if ((i>=1040) and (i<=1103)) then Result:=Chr(i-(1040-192))
    else Result:=Chr(i);
  end;