Hay varias formas de hacerlo, por ejemplo usando nuestros amigos los punteros:
Código:
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