Single-Gleitkommazahl in Hex darstellen und umgekehrt HeXer

[brechi]

Delphi-Quellcode:

var
  s: Single;
begin
  s := 1.12345678;
  label1.caption := IntToHex(PInteger(@s)^,8);
end;

Und für sowas ein eigenes Programm? oO