Вызывается функция, а результат в песок летит, может так надо
Код:
procedure ISetShilute(oShilute: TShilutefn); stdcall; //Функция что выполняется в памяти.
var
i: integer;
begin
oShilute := Pointer($06D8ED0); //Указатель (имеет статистическое значение)
i:= oShilute(30583, 1, 0, 0, 0.9, false, false, 999);
end;