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.