Игра змейка 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.