Ошибка. Классы.

[Женечка92]

Не могу понять в чем ошибка, пробую переделать лабу под свою, выводит ошибку. Помогите, кто знает, в чем косяк.
в исходном задании был ЦЕХ. Имя - String Начальник - String Количество работающих - Integer. у меня КВИТАНЦИЯ. Номер - Integer Дата - Integer Сумма - Float. Комментарии и оформление пока не меняла. все осталось от старой лабы. В чем ошибка, помогите?

[Женечка92]

[B]unit UnitClass;

interface

type product=class(tobject) // объявление класса
private // защищённые описания
fname:integer; // имя
fcode:integer; // начальник
fnumber:float; // количество
public // общедоступные описания
constructor create; overload; // конструктор без параметров
constructor create(newname,newcode:integer;newn umber:float); overload; // конструктор с параметрами
destructor destroy; // деструктор
function getname:integer; // метод для получения имени
function getcode:integer; // метод для получения начальника
function getnumber:float; // метод для получения количества
procedure setname(newname:integer); // метод для задания имени
procedure setcode(newcode:integer); // метод для задания начальника
procedure setnumber(newnumber:float); // метод для задания количества
property name:integer read getname write setname; // свойство - имя
property code:integer read getcode write setcode; // свойство - начальник
property number:float read getnumber write setnumber; // свойство - количество
end;

implementation

constructor product.create; // конструктор без параметров
begin
fname:=0; // значения величин
fcode:=0; // принятых
fnumber:=0; // по умолчанию
end;

constructor product.create(newname,newcode:inte ger;newnumber:float); // конструктор с параметрами
begin
fname:=newname; // переносим данные
fcode:=newcode; // из переданных параметров
fnumber:=newnumber; // в поля класса
end;

destructor product.destroy; // деструктор
begin
// в теле деструктора ничего писать не нужно,
// так как в классе не используются динамические данные
end;

function product.getname:integer; // метод для получения имени
begin
result:=fname; // возвращаем результат - данные соответствующего поля класса
end;

function product.getcode:integer; // метод для получения начальника
begin
result:=fcode; // возвращаем результат - данные соответствующего поля класса
end;

function product.getnumber:float; // метод для получения количества
begin
result:=fnumber; // возвращаем результат - данные соответствующего поля класса
end;

procedure product.setname(newname:integer); // метод для задания имени
begin
fname:=newname; // переносим данные в соответствующее поле класса
end;

procedure product.setcode(newcode:integer); // метод для задания начальника
begin
fcode:=newcode; // переносим данные в соответствующее поле класса
end;

procedure product.setnumber(newnumber:float); // метод для задания количества
begin
fnumber:=newnumber; // переносим данные в соответствующее поле класса
end;

end