[ArtIntellAnd]

Дело в том что strtoint('$AD10') переводит в целое число. Для дроби надо использовать

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
d8: array [0..7] of byte = ($A0,$27,$AF,$DF,$5D,$98,$48,$40);
var
D:double;
begin
  D:=Double(d8);
  showmessage(floattostr(D));
end;