zwischen labels mit buttonklick switchen

[Surge0n]

hi leutz!
wie kann ich durch einen klick auf einen button zwischen labels hin und her switchen?
ich hatte da eine idee..hat aber leider nich funktioniert...
hier mein quelltext:

var
Form1: TForm1;
a:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=1;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//die labelnamen lauten: label1 bis label16
//das vorherige label wird wieder weiß markiert
label[a].color:=clwhtie;
//das aktuell ausgewählte label wird rot markiert
label[a+1].color:=clred;
a:=a+1;
end;


bitte helft mir!
was ist mein fehler?

vielen dank