Una costumbre que tengo al crear funciones es asignarle un resultado por defecto en la primera linea, así me aseguro de que la función no devuelve nada inesperado. Es algo personal, pero me atrevo a recomendarlo:
Siguiendo el ejemplo de roman:
Código Delphi
[-]
function divide(a, b: Integer): Integer;
begin
Result:= 0;
if b <> 0 then
Result := a div b;
end;