procedure TForm1.EncryptButtonClick(Sender: TObject);
begin
StringReplace(text, "a", "7", [rfReplaceAll]);
StringReplace(text, "e", "1", [rfReplaceAll]);
StringReplace(text, "n", "3", [rfReplaceAll]);
StringReplace(text, "c", "2", [rfReplaceAll]);
StringReplace(text, "f", "4", [rfReplaceAll]);
StringReplace(text, "t", "5", [rfReplaceAll]);
StringReplace(text, "o", "6", [rfReplaceAll]);
StringReplace(text, "l", "8", [rfReplaceAll]);
StringReplace(text, "m", "9", [rfReplaceAll]);
StringReplace(text, "u", "0", [rfReplaceAll]);
StringReplace(text, "r", "<", [rfReplaceAll]);
StringReplace(text, "h", ">", [rfReplaceAll]);
StringReplace(text, "p", "©", [rfReplaceAll]);
StringReplace(text, "y", "†", [rfReplaceAll]);
StringReplace(text, "g", "*", [rfReplaceAll]);
StringReplace(text, "d", "!", [rfReplaceAll]);
StringReplace(text, "w", "&", [rfReplaceAll]);
StringReplace(text, "h", "=", [rfReplaceAll]);
StringReplace(text, "i", "#", [rfReplaceAll]);
end;