String in TStringList finden verschnellern?

[Klaus01]

oder so:

Delphi-Quellcode:

case v of
  low(Integer) .. -1: SuchIndexNachUnten;
  0: Gefunden;
  1 .. high(Integer): SuchIndexNachOben;
end;

Grüße
Klaus