Como verificar uma String

function ehIgual(Str1, Str2: TStringList): boolean;
var
  cont, pos: integer;
begin
  Result:= false;
  if (Str1.Count <> Str2.Count) then
    exit;
  cont:= 0;
  while (cont <= Str1.Count-1) do
  begin
    pos:= Str1.IndexOf(Str2[cont]);
    if (pos > -1) then
    begin
      Str1.Delete(pos);
      Str2.Delete(cont);
      cont:= cont-1;
    end;
    cont:= cont+1;
  end;
  Result:= ((Str2.Count = Str1.Count) and (Str1.Count = 0));
end;

var
  Str1, Str2: TStringList;
begin
  Str1:= TStringList.create;
  Str2:= TStringList.Create;

  Str1.Add(´AAA´);
  Str1.Add(´BBB´);
  Str1.Add(´CCC´);
  Str1.Add(´DDD´);

  Str2.Add(´BBB´);
  Str2.Add(´CCC´);
  Str2.Add(´AAA´);
  Str2.Add(´DDD´);
 
  if (ehIgual(Str1, Str2)) then
    showmessage(´As strings são iguais!´)
  else
    showmessage(´As strings são diferentes!´);
  Str1.Free;
  Str2.Free;
end;

function SameSequence(const S1, S2: String): Boolean;
var
  P1, P2, T1, T2, Z1, Z2: PChar;
  W: Word;
begin
  Result := S1 = ´´;
  if Length(S1) = Length(S2) then
  begin
    Z1 := StrNew(Pointer(S1));
    Z2 := StrNew(Pointer(S2));
    try
      P1 := Z1;
      T1 := Z1 + Length(S1);
      T2 := Z2 + Length(S2);
      repeat
        P2 := Z2;
        W := PWord(P1)^;
        while (P2 < T2) and (W <> PWord(P2)^) do
          Inc(P2, 3);
        if P2 >= T2 then
          Exit;
        PWord(P2)^ := 0;
        Inc(P1, 3);
      until P1 >= T1;
      Result := True;
    finally
      StrDispose(Z1);
      StrDispose(Z2);
    end;
  end;
end;