如何解浮点数？(50分)

基础问题：我写了一个single类型(4个字节) 293 到文件中,用UltrlEdit看是
00 80 92 43

我现在需要一个一个字节地读出来,再组合成为 293, 我应该如何去解?
整形的好弄,浮点的如何弄?

const
Chs: array [0..3] of Char = (#$00, #$80, #$92, #$43);

procedure TForm1.Button1Click(Sender: TObject);
var
F: Single;
begin
Move(Chs, F, 4);
showmessage(floattostr(f));
end;

如果是一个字符一个字符的读，可以定义一个PChar指针。
var
F: Single;
FP: PChar;
begin
FP := @F;
FP^ := #$00;
Inc(FP);
...
...
end;

procedure aaaaa;
var
f:single;
b:array[1..4]of byte absolute f;
begin
//读四个字节到b中
....
....
ShowMessage(FloatToStr(f))
//f已经给赋值了
end;

接受答案了.