Это реализация функции возведения в степень. St - переменная которая означает степень в которую необходимо возвести.
По коду, часть: "if St = 0 then Result:=1" это когда при возведении в нулевую степень ответ равен одному
А та что после else это цикл в котором каждую итерацию число умножается само на себя и так до St - степени в которую необходимо возвести.