[XaKeR282]

помогите мне вычислить факториал. Я попробовал сделать его с циклом (for to do) у меня получилось, а с While не получается, попробовал написать такой код:

Код:

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