[Raskolnikov]

На форму два Edti'а: Edit1 и Edit2. И кнопочку.

Код:

var
  i, k, R: Cardinal;
begin
  k := StrToInt(Edit1.Text);
  R  := k;
  for i := 1 to k do
    R := R * (k + i)
  Edit2.Text := IntToStr(R);
end;