Criando uma Função em Delphi
private
function <functionName>(<parameters>:<parameterDatatype>):<result dataType>;
Example:
function Factors(iNum: Integer):Integer;
URANIUM235