function Compare_by_Mask(cStr:string;cMask:string):boolean;
Var
  nmstar, nsstar, ns, nm : integer;
  lres, lstar : boolean;
  cs, cm : string;
  Len, LenM:Integer;

 begin
  Result:= false;
  ns :=  1 ;
  nm :=  1 ;
  lstar := False;
  cStr := AnsiLowerCase(cStr);
  cMask := AnsiLowerCase(cMask);
  Len:=lenGth(cStr);
  LenM:=lenGth(cMask);

    while (ns <= Len) and (nm <= LenM) do
    begin
        cs := cStr[ns];
        cm := cMask[nm];
        if (cs=cm) or (cm='?') then
        begin
          ns := ns +  1 ;
          nm := nm +  1 ;
        end                  else
        if cm = '*' then
        begin
            nmstar := nm;
            lstar := True;
            nm := nm +  1 ;
            if nm > LenM then
            begin
              ns := Len +  1 ;
            end                     else
            begin
              cm := cMask[nm];
              while (ns<=Len) and (cStr[ns]<>cm) do
              begin
                ns := ns+ 1 ;
              end;
              nsstar := ns;
            end;
        end
        else if lstar then
             begin
               nm := nmstar;
               nsstar := nsstar +  1 ;
               ns := nsstar;
             end else exit;
    end;
    lres := (ns>Len) and ((nm>LenM) or (cMask[nm] = '*'));
    Result:= lres;
 end;