Hallo,
pack deine Werte in ein Array und benutz dann folgendes:
Delphi-Quellcode:
function MinIntValue(const Data: array of Integer): Integer;
Beschreibung
Mit MinIntValue können Sie den kleinsten Integer-Wert in dem mit Data angegebenen Array ermitteln.
das Gleiche geht auch mit MinIntValue.
Ich will ja niemand zu nahe treten, aber ein Blick in die Hilfe hätte genügt.......
Nimoee