Факториал числа
procedure TForm1.Button23Click(Sender: TObject);
begin
if Edit1.Text<>'' then begin если Эдит1 не пустое
z:=strtoint(Edit1.Text); Zприсваиваем из строковой в численную (Эдит1.текст)
x:=1; x присваиваем значение 1
for y:=1 to z do x:=x*y; для y присваиваем значение от 1 до введённого в Эдит числа и выполняем действие x:=x*y
Edit1.Text:=inttostr(x); переводим из численной в строковою и записываем в Эдит1
end else
ShowMessage('введите значение'); если ничего ранее не выполнялось выводится сообщение
end;