nesco, а можно еще .pas? оч нужен..чет тупим..
for i := 1 to length(FResult) - 1 do
Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);

сделали..и получаем результат отличный от того что дает project1_002.zip