#pas
function THIIf_Else_Multi.Cmp(Mask:string):string;
//...
begin
  SetLength(op,0); SetLength(OpTyp,0); int := 0; i := 0; ot := 0; Cn := 0;
  while i < length(Mask) do begin//определение операндов
    inc(i);
    SetLength(OpTyp,(ot + 1));
    SetLength(op,i + 1);
//...

#pas
function THIIf_Else_Multi.MultiCompare(Maska:string):string;
//...
begin
  SetLength(s,0);
  Result := ';
  int1 := 0;
  Cn1 := 0;
  for i1 := 1 to length(Maska) do 
  begin
    SetLength(s,int1);
//...