[Error]

Здравствуйте, скажите как сравнить две строки с разным регистром?
Пример:

Код:

var a, b : string;
begin
a := '6CD9A30B354B99B9ED219A51773A0AACF';
Label1.Caption := a;
b := Edit1.Text;
if a=b then
begin
label3.Caption:='Pass';

К примеру, если значение Edit'a на конце равняется не AACF а - aACf, то это нормально.

[BoRoV]

Код:

  if StrIComp(PChar(str1), PChar(str2)) = 0 then
    ShowMessage('Равные');

[Error]

Огромное спасибо!