String in TStringList finden verschnellern?

[a.def]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 sl: TStringList;
begin
 sl := TStringList.Create;

 try
  sl.Sorted := False;

  sl.Add('123');
  sl.Add('456');
  sl.Add('123');

  ShowMessage('Sorted False:' + sLineBreak + sl.Text);

  sl.Sorted := True;
  ShowMessage('Sorted True:' + sLineBreak + sl.Text);
 finally
  sl.Free;
 end;

Keinerlei Fehler beim Setzen von Sorted True im Nachhinein, selbst wenn Einträge Doppelt vorhanden sind.