[roman]

Quizá no necesite un StringList:

Código Delphi [-]
with ListBox1 do
begin
  Sorted := true;
  ShowMessage(Format('Min: %s, Max: %s', [Items[0], Items[Count - 1]]));
end;

// Saludos