Не удается выполнить команды сопроцессора!

[VintProg]

Вот код:

function Test: Single; assembler;
asm


mov [esp+4], Single(1.0)
mov [esp+8], Single(1.0)
fld [esp+4];
fld [esp+8];
fmul


end;

Как сделать правильно?

[Somebody]

Так тут стек портится. Место надо бы в нём выделить.

sub esp, 12
...
add esp, 12

или типа того.
А если единички загружать - это просто fld1.