[fpc-pascal] Operators for a class

[Gabor Boros]

Hi All,

I try to convert some C++ source to FPC, see below a short example from 
it. How can I define same operator with FPC trunk?

class Cla
{
     INT64   Num;

public:
     Cla operator +(const Cla& m)
     {
         Cla  ret(this);

         ret.Num += m.Num;

         return ret;
     }

Gabor