求DELPHI中 float转DWord格式的步骤

求DELPHI中 float转DWord格式的方法
C代码好像是这么写的
int floatToDWORD(float flo)
{
  float *a = &flo;
  int *b = (int*)a;
  int c = *b;
  return c;
}

delphi 应该怎么写呢
谢谢 Delphi C
[解决办法]
用指针或可变记录都行

TDoubleDWord = record
  case integer of
    0:(Vdouble:Double);
    1:(Vdword:Dword);
end

指针大概如下：
var
aDouble:Double;
aDword:Dword;

aDWord:=(PDword(@aDouble))^

[解决办法]
DELPHI中,浮点数用double标示
可以将double先转换为String,FloatToStr函数进行转换
用下列函数进行转换
function StrToDword(Value: string): dword;  
var  
ValuePtr: PChar;  
begin  
ValuePtr:=@Value[1];  
asm  
MOV EAX, [ValuePtr]  
MOV EAX, [EAX]  
MOV Result, EAX end;  
end;