Модуль: SysUtils

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

Пример
var
   S1,S2: string;
   I: Integer;
begin
   S1:= 'AБВГД';
   S2:= 'абвгд';
   I:= CompareStr(S1, S2);     { I = 0, т.е. S1 = S2 }
   if I=0 then
     MessageDlg(S1, '=', S2, mtWarning, [mbOK], 0);
end;