function StringToCode(const s:string):string;
................
  Result := 'PChar(';
  ..............
  Result := Result + '#0)';
end;

function AnsiUpperCase(const S: AnsiString): AnsiString;
var
  Len: Integer;
begin
  Len := Length(S);
  SetString(Result, PAnsiChar(S), Len);
  if Len > 0 then CharUpperBuffA(Pointer(Result), Len);
end;

function AnsiUpperCase(const S: WideString): WideString; // Overloaded (NetSpirit)
var
  Len: Integer;
begin
  Len := Length(S);
  SetString(Result, PWideChar(S), Len);
  if Len > 0 then CharUpperBuffW(Pointer(Result), Len);
end;

function AnsiLowerCase(const S: AnsiString): AnsiString;
var
  Len: Integer;
begin
  Len := Length(S);
  SetString(Result, PAnsiChar(S), Len);
  if Len > 0 then CharLowerBuffA(Pointer(Result), Len);
end;

function AnsiLowerCase(const S: WideString): WideString; // Overloaded (NetSpirit)
var
  Len: Integer;
begin
  Len := Length(S);
  SetString(Result, PWideChar(S), Len);
  if Len > 0 then CharLowerBuffW(Pointer(Result), Len);
end;

function _StrCmp(Str, Msk: PChar): Boolean;
begin
  while (Str^ <> #0) and (Msk^ <> #0) do
  begin
    if Msk^ = '*' then
    begin
      Result := _StrCmp(Str, Msk + 1);
      if Result then Exit;
    end
    else
    begin
      if Msk^ = '#' then
        Result := Str^ in ['0'..'9']
      else
        Result := (Msk^ = '?') or (Msk^ = Str^);
      
      if Result then
        Inc(Msk)
      else
        Exit;
    end;
    
    Inc(Str);
  end;
  
  while Msk^ = '*' do Inc(Msk);
  
  Result := (Str^ = #0) and (Msk^ = #0);
end;