Модуль: SysUtils

Описание
Функция сравнивает строки S1 и S2 с учетом регистра, но не учитывая языковые особенности текущей локализованной версии Windows (См. примечание к функции AnsiCompareText). Если S1>>S2, то результат функции >0, если S1<S2, то результат <0, а при S1=S2, результат =0.

Пример
var
   S1,S2: string;
   I: Integer;
begin
   S1:= 'В лесу родилась елочка';
   S2:= 'В лесу родилась Елочка';
   I:= CompareStr(S1, S2);     { I > 0, т.е. S1 > S2 }
   if I<>0 then
     MessageDlg( 'Строки различны!', mtWarning, [mbOK],0);
end;