Add(MainForm,8301255,49,56)
{
 Width=327
 Height=271
}
Add(Button,6013603,49,133)
{
 Left=5
 link(onClick,8411288:doMultiBlockFind,[])
}
Add(MultiBlockFind,8411288,126,133)
{
 Count=8
 TagList="{**s}<h4>{**x}</h4>{**e}"
 link(Text,2182914:Text,[])
 link(onResult1,4212924:doAdd,[])
}
Add(Memo,4212924,210,133)
{
 Left=5
 Top=25
 Width=300
 Height=205
 Ctl3D=1
 ScrollBars=3
 InCharset=4
}
Add(StrList,2182914,126,56)
{
 Strings=#18:<h4>Hiasm</h4><p>’|
 InCharset=4
 OutCharset=3
}

Add(MainForm,8301255,91,126)
{
 Width=327
 Height=271
}
Add(Button,6013603,77,203)
{
 Left=5
 link(onClick,7643679:doConvert,[])
}
Add(Memo,4212924,280,203)
{
 Left=5
 Top=25
 Width=300
 Height=205
 Ctl3D=1
 ScrollBars=3
 InCharset=4
}
Add(StrList,2182914,154,126)
{
 Strings=#22:3031CEB1CEB2CEB3CEB432|
 InCharset=4
 OutCharset=3
}
Add(RE_Replace,16168177,210,203)
{
 Expression=".*?1(.*?)2"
 ReplaceStr="$1"
 link(onReplace,4212924:doAdd,[])
}
Add(StreamConvertor,7643679,154,203)
{
 Mode=3
 Symbol=""
 Charset=5
 Point(Data)
 link(onResult,16168177:doReplace,[])
 link(Data,2182914:Text,[])
}

function StrLComp(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer;
var
  S1, S2: PAnsiChar;
begin
  S1 := Str1;
  S2 := Str2;
  while (S1^ <> #0) and (S2^ <> #0) and (MaxLen > 0) do
  begin
    Result := Ord(S1^) - Ord(S2^);
    if Result <> 0 then Exit;
    Inc(S1);
    Inc(S2);
    Dec(MaxLen);
  end;
  Result := Ord(S1^) - Ord(S2^);
end;

function StrLComp(const Str1, Str2: PWideChar; MaxLen: Cardinal): Integer;
var
  S1, S2: PWideChar;
begin
  S1 := Str1;
  S2 := Str2;
  while (S1^ <> #0) and (S2^ <> #0) and (MaxLen > 0) do
  begin
    Result := Ord(S1^) - Ord(S2^);
    if Result <> 0 then Exit;
    Inc(S1);
    Inc(S2);
    Dec(MaxLen);
  end;
  Result := Ord(S1^) - Ord(S2^);
end;