[Decoding]

Попробуй в Init и Solve заменить
EndNum:=ClonNum
на
EndNum:=Copy(ClonNum)

и можно еще изменить
procedure Solve(ClonNum:Num; ClonView:Num; p,l:integer);
на
procedure Solve(const ClonNum:Num; const ClonView:Num; p,l:integer);