У кодера
for i := 0 to length(FResult) - 1 do
Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);
for i := 1 to length(FResult) - 1 do
Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);
Строки не считаются с нулевого символа в делфи
-- Удалено, См. ниже --