##
uses GraphWPF;
Font.Size := 80;
OnMouseMove := (x,y,mb) -> begin
  Window.Clear;
  DrawText(Window.ClientRect,$'{x,0:f0}, {y,0:f0}');
end;