begin
  // Сравнение двух очевидно различных строк
  CompareStrings('HELLO', 'WORLD');

  // Сравнение идентичных строк
  CompareStrings('Hi 2 you', 'Hi 2 you');

  // Символы верхнего регистра следуют за строчными буквами
  CompareStrings('ABC', 'abc');

  // Все символы следуют за числами
  CompareStrings('abc', '123');
end;

// Сравнение двух строк, и показ большей
procedure TForm1.CompareStrings(const string1, string2: string);
var
  result : Integer;
begin
  // Сравнение некоторых строк
  result := AnsiCompareStr(string1, string2);

  if result <0 then showmessage(string1+' < '+string2);
  if result = 0 then ShowMessage(string1+' = '+string2);
  if result > 0 then ShowMessage(string1+' > '+string2);
end;