Скорее всего, никак. Потому что https обычно достаточно легко обходится, хотя и может попортить кровь при граммотной реализации, а обсфуркация усложняет жизнь не на порядок. В крайнем случае никто не мешает запустить приложение в эмуляторе.
В такой ситиуации единственным правильным решением является проверка приходящих данных с точки зрения логики работы. Можно, если очень хочется, пытаться собирать какие-то данные с телефона и на их основании пытаться идентифицироать клиента, как настоящего.

На сколько я понял есть:

TMyObject = class(TObject)
  procedure DoA; virtual;
  procedure DoB; virtual;
end;

TMyObject2 = class(TMyObject)
  procedure DoA; override;
  procedure DoB; override;
end;

...

TMyObject.DoA;
begin
   DoB;
end;

TMyObject.DoB;
begin
  WrtieLn('MyObject');
end;

TMyObject2.DoA;
begin
   inherited DoA; // fix
end;

TMyObject2.DoB;
begin
  WriteLn('MyObject2');
end;

И вы ожидаете получить в результате вызова метода DoA класса TMyObject2, исправив строку с пометкой fix
строку MyObject в консоли строку MyObject вместо MyObject2.

Ответ: это не возможно.

Решение:
1. Если классы написаны Вами - думать над проектированием.
2. Если классы написаны не Вами - думать о том, как их использовать. Возможно "патчить" исходники если совсем припёрло. В таком случае нужна существенно более подробная информация.

Очевидно, это проблема. Такого поведения быть не должно.
Скорее всего в какой-то из функций Вы используете не инициализированную переменную.
Если судить по Вашему описанию, текст расшифровывается корректно. Значит дело в функции KeyExpansion или инициализации массива ключа. Попробуйте вставить что-то типа

for Index := Low(Key) to Hi(Key) do
    Key[Index] := 0;

перед строчками

for i:=1 to Nk*4 do
  key[i]:=Ord(s[i]);

В notepad++ есть режим выделения "блоком". Работает при выделение мышкой с зажатым Alt.