AnsiStartsStr 和 空字符串

function AnsiStartsStr(const ASubText, AText: string): Boolean;
begin
  Result := AnsiSameStr(ASubText, Copy(AText, 1, Length(ASubText)));
end;

ASubText 是 '' 时，也是 返回 True。因为

Copy(AText, 1, Length(ASubText)) 返回 ''