Ошибка Type missmatch при наследовании классов

class Speed
 {
 protected:
 float speed; 
 AnsiString measure; 
 int points; 
 int Left, Top; 
 TColor Color; 
 TCanvas* Canvas;
 
 public:
 Speed();
 Speed(int s, AnsiString m, int x, int y);
 
 void SetSpeedMeasure(float a, float b, AnsiString c){measure = c;}
 void SetSpeed(float a){speed = a;}
 void Check();
 void SetLeft(int l) {Left = l;}
 void SetTop(int t) {Top = t;}
 void SetLT(int l, int t) {Left = l; Top = t;}
 void SetColor(TColor c) {Color = c;}
 void SetCanvas(TCanvas* cnv) {Canvas = cnv;}
 int GetSpeed(){return speed;}
 int GetLeft() {return Left;}
 int GetTop() {return Top; }
 TColor GetColor() {return Color;}
 TCanvas* GetCanvas() {return Canvas;}
 };
 
class Chord : public Speed
{
 protected:
 float max_speed;
 float min_speed; 
 double point;
 
 public:
 Chord() : Speed () {point = 10; max_speed = 100; min_speed = 0;}
 Chord(int s, AnsiString m, int x, int y ,float a, float b, double p) : Speed(s, m, x, y)
 {
 point = p;
 min_speed = a;
 max_speed = b;
 }
 
 void ChordSpeedometr(TCanvas *canvas, unsigned radius, float start_angle, float sweep_angle);
 void SetPoints(int p){points = p;}
 int GetPoints(){return point;}
};

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Speed S1;
Chord C1;  // Вот здесь ошибка, притом сразу несколько
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 Speed::Speed()
 {
  speed = 10;
  measure = "км/ч";
  Left = 50;
  Top = 50;
  Color = 0;
  Canvas = 0;
 }
 
 Speed::Speed(int s, AnsiString m, int x, int y)
 {
  speed = s;
  measure = m;
  Left = x;
  Top = y;
  Color = 0;
  Canvas = 0;
 }