Создание нового типа

[master_root]

Нужно создать новый тип данных. При этом нужно переопределить стандартные операторы присвоения, сравнения..., чтобы работа с этим типом ничем не отличалась от стандартных. Т.к. нужно переопределять операторы использую тип Record. Работать с полями типа из переопределённых операторов нельзя. Задача такая, чтобы в переопределённом методе присваивания разбить число на цифры и поместить эти цифры в массив, а потом работать с этим массивом в переопределённых операторах сложения, вычитания, сравнения... Что-то никак не могу додуматься как это сделать. Такое ощущение, что эта задача вообще не осуществима при помощи типа Record, а значит переопределить операции нельзя больше нигде. Помогите пожалуйста

[alexBlack]

как пример:

type
   TMyType = record
     X, Y:integer;
     class operator Implicit(N:integer):TMyType;           // := integer
     class operator add(A, B:TMyType):TMyType;             // +
     class operator LessThan(A, B:TMyType):boolean;        // < 
   end;

implementation

class operator TMyType.Implicit(N:integer):TMyType;
begin
   result.X := N div 10;
   result.Y := N mod 10;
end;

class operator TMyType.add(A, B:TMyType):TMyType;
begin
   result.X := A.X + B.X;
   result.Y := A.Y + B.Y;
end;

class operator TMyType.LessThan(A, B:TMyType):boolean;
begin
   result := (A.X < B.X) or (A.Y < B.Y);
end;

procedure TForm1.FormCreate(Sender: TObject);
var A, B, C:TMyType;
    B1 : boolean;
begin
   A := 56;
   B := 78;
   C := A + B;

   B1 := C < A;
end;

[master_root]

спасибо.что-то я сразу не сообразил