Вообще-то, рекурсивную функцию расчета чисел фибоначи можно посмотреть в любом учебнике. Она очень простая.
Код:
// Возвращает Nый элемент ряда фибоначи
function Fib(N : Integer) : Integer;
begin
If N < 3
Then Result := 1
Else Result := Fib(N-1) + Fib(N-2);
end;
В принципе, сюда можно имплантировать счетчик для подсчета числа сложений. Сделать доп. var-параметр и увеличивать его на 1 в ветке Else.