#pas
      if i <> 0 then
      begin
        //...
      end
      else
      begin
        startbl := endbl;
        endbl := '';
      end;

      if endbl = '' then
      begin
        endbl := startbl;
        //...

#pas
      i := PosABM('{**x}', endbl);
      if i <> 0 then
      begin
        startbl := Copy(endbl, 1, i - 1);
        Delete(endbl, 1, i + 4);
        include := false;
      end
      else
      begin
        i := PosABM('{**i}', endbl);
        if i <> 0 then
        begin
          startbl := Copy(endbl, 1, i - 1);
          Delete(endbl, 1, i + 4);
        end
        else
        begin
          startbl := endbl;
          endbl := '';
        end;  
        include := true;
      end;

#pas
      startbl := trim(startbl);
      endbl := trim(endbl);

#pas
function Trim(Str: string): string;
var
  L: integer;
begin
  Result := Str;
  L := Length(Result);
  if Result[L] <> '\' then 
    while (L > 0) and (Result[L] <= ' ') do Dec(L)
  else Dec(L);
  SetLength(Result, L);
  L := 1;
  if Result[L] <> '\' then
    while (L <= Length(Result)) and (Str[L] <= ' ') do Inc(L)
  else Inc(L);
  Delete(Result, 1, L - 1);
end;

Add(MainForm,2953706,357,189)
{
 link(onCreate,8248298:doMultiBlockFind,[])
}
Add(MultiBlockFind,8248298,406,203)
{
 TagList="{**s}\ \{**x}\ \{**e}"
 link(Text,15780894:Text,[])
 link(onResult1,11062714:doMessage,[])
}
Add(Edit,15780894,406,154)
{
 Left=405
 Top=150
 Text="data dt dat"
}
Add(Message,11062714,455,203)
{
}

Add(MainForm,13988777,217,266)
{
 link(onCreate,8248298:doMultiBlockFind,[])
}
Add(MultiBlockFind,8248298,266,280)
{
 TagList="{**s}* {**x} {**e}"
 link(Text,15780894:Text,[])
 link(onResult1,11062714:doMessage,[])
}
Add(Edit,15780894,266,231)
{
 Left=405
 Top=150
 Text="data* dt dat"
}
Add(Message,11062714,315,280)
{
}