"русско-английский словарь цветовой гаммы"(Delphi)

[туська]

не могу найти ошибку #Code помогите пожалуйста кто сможет((((



unit Unit2;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TNameSlovar = class
private
{ Private declarations }
protected
Fcolor:string;
function GetColor: String;
procedure SetColor(Value:String);
public
Constructor Create;
property Color: String read GETColor write SetColor;
procedure Execute;
end;
implementation
Constructor TNameSlovar.Create;
begin
Fcollor[1]:='синий';
Fcollor[2]:='красный';
Fcollor[3]:='желтый';
Fcollor[4]:='белый';
Fcollor[5]:='черный';
Fcollor[6]:='розовый';
Fcollor[7]:='зеленый';
Fcollor[8]:='малиновый';
Fcollor[9]:='бардовый';
Fcollor[10]:='оранжевый';
Fcollor[11]:='серый';
Fcollor[12]:='бежевый';
Fcollor[13]:='бронзовый';
Fcollor[14]:='золотой';
Fcollor[15]:='коричневый';
Fcollor[16]:='фиолетовый';
Fcollor[17]:='шоколадный';
Fcollor[18]:='медный';
Fcollor[19]:='кукурузный';
Fcollor[20]:='кремовый';
Fcollor[21]:='голубой';
Fcollor[22]:='индиго';
Fcollor[23]:='джинсовый';
Fcollor[24]:='изумрудный';
Fcollor[25]:='баклажановый';
Fcollor[26]:='каштановый';
Fcollor[27]:='лимонный';
Fcollor[28]:='сиреневый';
Fcollor[29]:='лайм';
Fcollor[30]:='орхидея';
Fcollor[31]:='лиловый';
Fcollor[32]:='персиковый';
Fcollor[33]:='барвинок';
Fcollor[34]:='грушевый';
Fcollor[35]:='сливовый';
Fcollor[36]:='пурпурный';
Fcollor[37]:='лососевый';
Fcollor[38]:='песочный';
Fcollor[39]:='сапфировый';
Fcollor[40]:='серебрянный';
Fcollor[41]:='болотный';
Fcollor[42]:='томатный';

end;
function TNameSlovar.GetColor:String;
begin Result:=FColor;
end;
procedure TNameSlovar.SetColor(Value:String);
begin FColor:=Value;
end;
procedure TNameSlovar.Execute;
var
pharse:string;
begin
Fperevod[1]:='blue'+FPerevod;
Fperevod[2]:='red'+FPerevod;
Fperevod[3]:='yellow'+FPerevod;
Fperevod[4]:='white'+FPerevod;
Fperevod[6]:='black'+FPerevod;
Fperevod[7]:='Green'+FPerevod;
Fperevod[8]:='Cornsilk'+FPerevod;
Fperevod[9]:='wine red'+FPerevod;
Fperevod[10]:='Orange'+FPerevod;
Fperevod[11]:='Gray'+FPerevod;
Fperevod[12]:='Beige'+FPerevod;
Fperevod[13]:='bronze'+FPerevod;
Fperevod[14]:='Gold'+FPerevod;
Fperevod[15]:='Peru'+FPerevod;
Fperevod[16]:='Violet'+FPerevod;
Fperevod[17]:='Chocolate'+FPerevod;
Fperevod[18]:='bronze'+FPerevod;
Fperevod19]:='corn'+FPerevod;
Fperevod[20]:='cream'+FPerevod;
Fperevod[21]:='Blue'+FPerevod;
Fperevod[22]:='Indigo'+FPerevod;
Fperevod[23]:='jean'+FPerevod;
Fperevod[24]:='emerald green'+FPerevod;
Fperevod[25]:='aubergine'+FPerevod;
Fperevod[26]:='chestnut'+FPerevod;
Fperevod[27]:='Lemonchiffon'+FPerevod;
Fperevod[28]:='lilac'+FPerevod;
Fperevod[29]:='lime'+FPerevod;
Fperevod[30]:='orchid'+FPerevod;
Fperevod[31]:='lilac'+FPerevod;
Fperevod[32]:='peachy'+FPerevod;
Fperevod[33]:='periwinkle'+FPerevod;
Fperevod[34]:='pear'+FPerevod;
Fperevod[35]:='Plum';
Fperevod[36]:='purple'+FPerevod;
Fperevod[37]:='salmon'+FPerevod;
Fperevod[38]:='sand'+FPerevod;
Fperevod[39]:='sapphire'+FPerevod;
Fperevod[40]:='Silver'+FPerevod;
Fperevod[41]:='Moccasin'+FPerevod;
Fperevod[42]:='Tomato'+FPerevod;
end;
end.


спасибо за ранее