[stil]

Код:

procedure TForm5.ВычислитьExecute(Sender: TObject);
var
Shotcik:Integer;
Summa:Integer;
Ekran:Integer;
begin
Shotcik:=1;
Summa:=1;
Ekran:=StrToInt(Edit1.Text);
while Shotcik<=Ekran do
Begin
Summa:=Summa*Shotcik;
Shotcik:=Shotcik+1;
End;
Edit2.Text:=IntToStr(Summa);
end;

вообще то факториал это http://ru.wikipedia.org/wiki/Факториал