+ support of dispatch call using <variant>.<id>

git-svn-id: trunk@7185 -

compiler/pexpr.pas

@@ -2088,10 +2088,10 @@ implementation
                                  begin
                                    p2:=parse_paras(false,true,_RKLAMMER);
                                    consume(_RKLAMMER);
-                                   p1:=translate_disp_call(p1,p2,dispatchstring);
                                  end
                                else
                                  p2:=nil;
+                               p1:=translate_disp_call(p1,p2,dispatchstring);
                              end
                            else { Error }
                              Consume(_ID);