Listbox

[Nils_13]

Wenn es wirklich der Reihenfolge nach immer höher wird, solltest du das mit z.B. dieser Schleife lösen können:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do // Für alle Items von 0 bis ListBox Itemanzahl - 1
  begin
    Label1.Caption := IntToStr(max(StrToInt(ListBox1.Items[i]), -1));  
    // hier wird mit der Funktion max verglichen
    // Wenn es allerdings negativ Zahlen gibt, musst du -1 ersetzen                                                                    
  end;
end;

Das ist eine total schlechte Variante, die ich mir schnell ohne Delphi selber ausgedacht habe, bin für Verbesserungen sehr dankbar.