Coding Faktorial (Delphi)

procedure TForm4.Button8Click(Sender: TObject);
var n, p, i: integer;
begin
n:= strtoint (edit1.Text);
p:=1;
for i:=1 to n do
begin
p:= p*i;
edit1.Text:= inttostr(p);
end

end;