Не знаю как правильно сделать вызов функции

[alexan0308]

Код давай говорю. Наверняка там у тебя какое нибудь гнусное извращение.

[Homutova_Julia]

procedure TForm1.Button1Click(Sender: TObject);
var
 k:integer; // ÷èñëî, ïðè êîòîðîì íóæíî âû÷èñëèòü çíà÷åíèå ôóíêöèè
begin

k := StrToInt(Edit1.Text);//×èñëî k
 label3.caption:='Çíà÷åíèå ôóíêöèè ïðè k '+Edit1.Text
 + ' ðàâåíî '+FloatToStr(F(k));

end;

function TForm1.F(k: integer): real;
var factor:integer;
Begin
  If k=0 then result:=0;
  If k=1 then result:=2;
  If k>1 then result:=factor(k-1)/factor(k-2);
end;

function TForm1.factor(N: integer): integer;
Begin
  if N=0 then factor:=1 else factor:=N*factor(N-1);
end;

[alexan0308]

Я же вроде ясно скинул функции без принадлежности формы: не TForm1.factor, а factor и т.д. Ну раз ты их привязала к форме, исправь функцию F

function TForm1.F(k: integer): real;
var factor:integer;
Begin
  If k=0 then result:=0;
  If k=1 then result:=2;
  If k>1 then result:=Form1.factor(k-1)/Form1.factor(k-2);
end;

[Homutova_Julia]

О, работает
Спасибо, за помощь, теперь буду знать

[alexan0308]

На здоровье ))