Gibt es einen schnelleren Stringvergleich als if S1 = S2

[Aphton]

Ne Frage nebenbei (jz nicht nur dies hier betreffend, sondern auch etwas allgemeiner):

Delphi-Quellcode:

    if Length(s1) = Length(s2) then
      if s1[1] = s2[1] then
        if s1[Length(s1)] = s2[Length(s2)] then
          if s1 = s2 then Inc(c);

Ist folgende Variante nicht schneller? Oder optimiert das Delphi allgemein genauso?

Delphi-Quellcode:

    len := Length(s1);
    if len = Length(s2) then
      if s1[1] = s2[1] then
        if s1[len] = s2[len] then  // hier!
          if s1 = s2 then Inc(c);

Sry hab kB Delphi zu starten und zu disassemblieren. Vlt weiß es ja einer auf Anhieb.