Convertir un Single en 4 char

[Mick]

Hay varias formas de hacerlo, por ejemplo usando nuestros amigos los punteros:

var 
  ptr      :PChar;
  number:single;
  c1,c2,c3,c4:char;
begin

  number:= 13.34;
  ptr:= @number;
  c1:= ptr[0];
  c2:= ptr[1];
  c3:= ptr[2];
  c4:= ptr[3];
 
  // O Directamente sin variables intermedias 
  c1:= PChar(@number)[0];
  c2:= PChar(@number)[1];
  c3:= PChar(@number)[2];
  c4:= PChar(@number)[3]

end;

Saludos