Передача параметров в dll Опции

[Гость]

Доброго времени суток. В функцию из dll пытаюсь впихнуть цикл. Количество итераций определяется переданным из программы целочисленным параметром. Функция dll должна возращать результат типа double. Выглядит все это примерно так:

function MyFunc(Period: Integer): Double; StdCall;
var
  Sum: Double;
begin
	  for i := 1 to Period do
		begin
		  Sum := Sum + GetData;
		end;
	  Result := Sum;
end;

GetData - другая функция, которая подключается к БД и вытаскивает оттуда значение типа doudle. Все вроде работает (подключение к БД из dll и т.д.), но параметр Period передается как-то непонятно. Пример: при задании в основной программе этому параметру цифры 5 в dll он передается как 1244664.

Подскажите, пожалуйста, как можно разобраться с этим глюком