const
  s1='地2點';
  s2='4b王成';
var
  r:Integer;
begin
  r:=CompareStr(s1,s2);
  if r<0 then showmessage('s1小於s2');
  if r=0 then showmessage('相同');
  if r>0 then showmessage('s1大於s2');
end;