Merlin's Delphi Forge

The idea is the same as in tip 6.1 but this functions finds the smallest number.

{ You can easily modify this function to accept other numerical types }
function MinInteger(const aInt: array of Integer): Integer;
var
  iI: Integer;
begin
  Result := aInt[Low(aInt)];
  for iI := Low(aInt) + 1 to High(aInt) do
    if aInt[iI] < Result then
      Result := aInt[iI];
end;