Делфи Классы

[Д@ш@]

Здравствуйте! Я никак не могу разобраться с реализацией класса Помогите пожалуйста, буду очень благодарна

unit Unit2;

interface

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

type TSpec=class
private
DataZ: string;
DataP: string;
Number: string;
Kol: real;
Org: real;
Material: real;
public
constructor Create(n,d1,d2: string;k,m,o:real);
function GetMaterial(): real; //материал
function GetKol(): real; //количество материала
function GetNumber(): string; //номер договора
function GetDataZ(): string; //дата завершения договора
function GetDataP(): string; //дата поставки
function GetOrg() : real; //организация
end;


implementation

constructor TSpec.Create(d1,d2,n: string; k,m,o: real); /////// ошибка
begin
Number:=n;
Org:=o;
DataZ:=d1;
DataP:=d2;
Kol:=k;
Material:=m;
end;

function TSpec.GetNumber(): string;
begin
GetNumber:=Number;
end;

function TSpec.GetOrg():real;
begin
GetOrg:=Org;
end;

function TSpec.GetDataZ(): string;
begin
GetDataZ:=DataZ;
end;
function TSpec.GetDataP(): string;
begin
GetDataP:=DataP;
end;
function TSpec.GetMaterial(): real;
begin
GetMaterial:=Material;
end;

function TSpec.GetKol(): string;
begin
GetKol:=Kol;
end;

end.

Ошибка в конструкторе, в типах... Никак не могу в них разобраться...

[veniside]

Create(n,d1,d2: string;k,m,o:real);
...
Create(d1,d2,n: string; k,m,o: real);

параметры переставлены местами, так быть не должно