uses System.SysUtils;

var
  First, Second, Third: string;
  AreEqual, AreNotEqual: Boolean;
  SameIgnoreCase, MoreThan: Boolean;
begin
  First := 'A';
  Second := 'B';
  Third := 'a';

  AreEqual := First = Second;
  //AreEqual is False

  AreNotEqual := First <> Second;
  //AreNotEqual is True

  //case-insensitive comparison
  SameIgnoreCase := SameText(First, Third);
  //SameIgnoreCase is True

  MoreThan := CompareStr(First, Second) > 0;
  //MoreThan is False

  WriteLn('areEqual is ', AreEqual);
  WriteLn('areNotEqual is ', AreNotEqual);
  WriteLn('sameIgnoreCase is ', SameIgnoreCase);
  WriteLn('moreThan is ', MoreThan);
end.