一段VB代码，帮我翻译成Delphi代码，谢谢！！

Question

取16位数的                   高8位数为 hibyte(integer_var) 
                             低8位数为 lobyte(integer_var) DELPHI还真没有VB写的多，
对不起，可能老板要扣钱了，

Answer 1

以上程序在VB6中不能运行“CopyMemory”   ——Sub or Function not defined要搞清原来的意图
就不难了

Answer 2

var bUpper,bLower:BYTE;
    wTmpl: WORD;
    dImplVersion: Double;
begin
  wTmpl := $802;
  bUpper := Hi(wTmpl);
  bLower := Lo(wTmpl);
  dImplVersion := StrToFloat(IntToStr(bUpper)+ '.' + IntToStr(bLower));
end;