Как оптимизировать код Delphi

[OST_K]

Тут чтоб при наведении и снятия с наведения менялась подсветка текста в Label
Можно как то чтоб Допустим\\\\\\\\\\\
FormCreate
if sPanel1MouseEnter=true then
Label1.Font.Color:=$e00e00;
Label2.Font.Color:=$e00e00;
Label3.Font.Color:=$e00e00;
if sPanel1MouseLeave=true then
Label1.Font.Color:=$5e1314;
Label2.Font.Color:=$5e1314;
Label3.Font.Color:=$5e131
*/////////////////////
или как можно упростить весь этот код:
procedure TForm1.sPanel1MouseEnter(Sender: TObject);
begin
Label1.Font.Color:=$e00e00;
Label2.Font.Color:=$e00e00;
Label3.Font.Color:=$e00e00;
end;

procedure TForm1.sPanel1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=$5e1314;
Label2.Font.Color:=$5e1314;
Label3.Font.Color:=$5e1314;
end;

procedure TForm1.sPanel2MouseEnter(Sender: TObject);
begin
Label4.font.Color:=$e00e00;
Label5.font.Color:=$e00e00;
Label6.font.Color:=$e00e00;
end;

procedure TForm1.sPanel2MouseLeave(Sender: TObject);
begin
Label4.Font.Color:=$5e1314;
Label5.Font.Color:=$5e1314;
Label6.Font.Color:=$5e1314;
end;


procedure TForm1.sPanel3MouseEnter(Sender: TObject);
begin
Label7.font.Color:=$e00e00;
Label8.font.Color:=$e00e00;
Label9.font.Color:=$e00e00;
end;

procedure TForm1.sPanel3MouseLeave(Sender: TObject);
begin
Label7.Font.Color:=$5e1314;
Label8.Font.Color:=$5e1314;
Label9.Font.Color:=$5e1314;
end;

procedure TForm1.sPanel4MouseEnter(Sender: TObject);
begin
Label10.font.Color:=$e00e00;
Label11.font.Color:=$e00e00;
Label12.font.Color:=$e00e00;
end;

procedure TForm1.sPanel4MouseLeave(Sender: TObject);
begin
Label10.Font.Color:=$5e1314;
Label11.Font.Color:=$5e1314;
Label12.Font.Color:=$5e1314;
end;

[Виталий Желтяков]

Одна процедура:
- "Тушим" лейблы,
- Загораем нужный.