Es geht um folgendes Programm:
procedure TForm1.btn_mintClick(Sender: TObject);
var zaehler, smallest, i, durchlauf, anzahl: integer;
time1, time2: Integer;
begin
time1 := gettickcount;
anzahl := StrToInt(edt_anz.Text);
durchlauf := 0;
while durchlauf < anzahl do
begin
smallest...