new bug - Lape

program new;

type TFoo = type Pointer;

procedure TFoo.Bar(a,b:Int32);
begin
  self.Bar(TPoint([a,b]));
end;

procedure TFoo.Bar(p:TPoint); overload;
begin
  WriteLn(123);
end;

var
  f:TFoo;
begin
  f.Bar(9,9);
end.

> Error: Don't know which overloaded method to call with params (record [0]Int32; [4]Int32; end) at line 7, column 7