anchor.diff:            end;
             if aMessage[i] = ')' then
             begin
  -            result.y := strToIntDef(ident, -1);
  +            j := Pos(',', ident);
  +            if j = 0 then
  +              result.y := strToIntDef(ident, -1)
  +            else
  +            begin
  +              result.y := strToIntDef(ident[1..j-1], -1);
  +              result.x := strToIntDef(ident[j+1..length(ident)], -1);
  +            end;
               exit;
             end;
           end;
  
positive.code:         begin
            inc(i);
            if i > length(aMessage) then exit;
            while( isNumber(aMessage[i]) ) do
            begin
              ident += aMessage[i];
              inc(i);
  
negative.code:   end;
  end;
  
  function getLineFromDmdMessage(const aMessage: string): TPoint;
  var
    i, j: NativeInt;
    ident: string;
  begin
    result.x := 0;
  