Создание класса "Число" и методов

[Alexar Makken]

Определите класс Число, хранящий в поле данных целое число. Для этого класса реализуйте метод, выводящий в зависимости от знака (+ или ‑) этого числа результат 0 (отрицательный) или 1 (положительный). Реализуйте также метод Sum так, чтобы при сложении объекта с целым числом значе*ния поля данных увеличивалось на это число, а при сложении объек*та с другим объектом этого же класса поле данных уменьшалось. Осуществить проверку всех методов.

Не могу понять как реализовать метод Sum. Вот наработки:

unit Unit1;
 
interface
type
TNumber = class
fCn: integer;
constructor Create(Cn:integer);
function Proverka:byte;
function Sum:integer;
end;
implementation
 
uses Unit2;
constructor TNumber.Create(Cn:integer);
  begin
    fCn:= Cn;
  end;
function TNumber.Proverka:byte;
begin
  if fCn>0 then
  Result:=1
  else Result:=0;
end;
function TNumber.Sum:integer;
 
end.

[evg_m]

TNumber = class
fCn: integer;
constructor Create(Cn:integer);
function Proverka:byte;
procedure Sum(addvalue:integer); overload; 
// чтобы при сложении объекта с целым числом значе*ния поля данных увеличивалось на это число
procedure Sum(decvalue: TNumber); overload;
// а при сложении объек*та с другим объектом этого же класса поле данных уменьшалось
end;

overload указание компилятору что ДВА ОДИНАКОВЫХ имени (Sum) это нормально.
Ну и написать реализацию обоих методов.

[Alexar Makken]

Спасибо!
Хотел ещё спросить вот задал методы, правильно или нет:

procedure TNumber.Sum(addvalue:integer);
begin
  fCn:=fCn + abs(addvalue);
end;
procedure TNumber.Sum(decvalue: TNumber);
begin
  fCn:=fCn - abs(decvalue);
end;

[evg_m]

Хотел ещё спросить вот задал методы, правильно или нет:

А вы попробуйте
1. скомпилировать (Ctrl +F9).
если ошибок нет, то почти хорошо. можно двигаться дальше.
2. написать тестовое задание(программу) и проверить результаты.

Осуществить проверку всех методов.