Игра змейка Delphi / Unit2

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
   a,b,c,i: byte;
implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
Memo1.Text:='Программа создана Юговым Александром  Всем СПАСИБО за внимание'
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
randomize;
i:=random(2);
if (a=255)or(b=255)or(c=255) then begin
if a=255 then a:=0;
if b=255 then b:=0;
if c=255 then c:=0;
end;
case i of
0: a:=a+5;
1: b:=b+5;
2: c:=c+5;
end;
form2.Color:=rgb(a,b,c);
form2.Label1.Font.Color:=rgb(a-20,b+110,c);
form2.memo1.Font.Color:=rgb(a-20,b+110,c);
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form2.Hide;
ShowMessage('И еще раз спасибо за внимание!!!!!');
end;

end.