Kannst auch direkt den Code aus Min() nehmen
if i1 < i2 then e1 := i1 else e1 := i2;
Ist genauso schnell, wie deiner, obwohl Min() selber ja nichts anderes macht
Delphi-Quellcode:
function Min(const A, B: Integer): Integer;
begin
if A < B then
Result := A
else
Result := B;
end;