Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation


{$R *.dfm}

class operator Tpoint.add(v1, v2: Tpoint): Tpoint;
begin
  Result.x := v1.x  + v2.x;
  Result.y := v1.y + v2.y;
end;

end.
This don't compile ;/