
(*
 Delphi Object and Component Reference
#{bmc bm10.BMP} StrLIComp example
uses SysUtils;
const
  S1: PChar = 'Enterprise'
  S2: PChar = 'Enter'
var
  ComStr: string;
begin
  if StrLIComp(S1, S2, 5) = 0 then
    ComStr := 'equal'
  else
    ComStr := 'different';
  Canvas.TextOut(10, 10, 'The first five characters are ' + ComStr);
end; 
