带小数的10进制转16进制

var
  f:Single;
begin
  f:=350.0000;
  edt1.Text := (IntToHex(PInteger(@f)^,8));
end;