Ошибка: Declaration of 'Create' differs from previous declaration

[qwerty8]

unit Unit1;

interface

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

  type TShar=class
constructor Create(C:TCanvas);
procedure DrawMe(C:TCanvas); 
private
x,y:integer;      //Это координаты фигурки
dx,dy:integer;    //Это приращение скорости по направлению x и y
col:integer;      //Цвет фигурки
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  n1,i:integer; //В переменную n будем сохранять число объектор.
  Form1: TForm1;
  s1: array [1..20] of TShar; //Массив для 20 фигурок

implementation

{$R *.dfm}

constructor TShar.Create();
begin
Randomize;            //Сбрасываем генератор случайных чисел
  x:=Random(150);     //Записываем в x случайное от 0 до 150
  y:=Random(200);     //Записываем в y случайное от 0 до 150
  dx:=2-Random(4);    //dx "скорость движения" фигуры по оси x
  dy:=2-Random(4);    //dy "скорость движения" фигуры по оси y
  if dx=0 then dx:=1; //если скорость нулевая присваиваем 1
  if dy=0 then dy:=1;
  col:=Random(255*255); //Задаем случайный цвет
end;

procedure TShar.DrawMe(C:TCanvas); //Рисуем кружок
begin
form1.Canvas.Brush.color:=col;
C.Pen.Color:=col;
C.Ellipse(x-5,y-5,x+5,y+5);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if n1=20 then exit;  //В переменной n1 содержится число фигурок на форме. 
                       //Если на форме уже 20 фигурок, 
                       //то просто выходим не создавая новую.
  n1:=n1+1;    //Увеличиваем счетчик фигурок на 1
  s1[n1]:=TShar.Create(); //Создаем новый элемент массива
  Timer1.Enabled:=true;   //Запускаем таймер.

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Следующие две строки закрашивают белый квадратик
  form1.Canvas.Brush.color:=clwhite; 
  form1.Canvas.FillRect(0,0,160,210);
  //Проходимся по всем элементах массива
  for i:=1 to n1 do begin
    s1[i].DrawMe(form1.Canvas); //Вызываем метод, рисующий фигуру
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
n1:=0;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  for i:=1 to n1 do begin
   s1[i].Free;
  end;

end;

end.

[eval]

и что ?

[qwerty8]

Там в практической части задание (вложение). Вроде все правильно сделал, но выдает ошибку.

[Человек_Борща]

Конструктору своего класса присвойте флаг overload, т.к. стандартный конструктор TObject не имеет параметров.

[Stilet]

Сравни (это автору)

constructor Create(C:TCanvas);

и

constructor TShar.Create();

Видишь? кое-чего не хватает. А конкретно параметра.

Конструктору своего класса присвойте флаг overload, т.к. стандартный конструктор TObject не имеет параметров.

Зачем? Он же не наследовать его собирается. и по-моему компилятор даст отлуп на такое в данном случае.