多个label 鼠标移到标签换色的问题

Question

procedure TForm1.label1MouseEnter(sender:TObject);
begin
 if Sender is TLabel then
  TLabel(sneder).font.color:=clred;
end;
procedure Tform1.label1MOuseLeave(Sender:Tobject);
begin
 if Sender is TLabel then
  TLabel(Sender).font.color:=clblack;
但是我的label1 和label2 要的红色
label3和label4 要别的颜色怎么做 上面的都是label1-4都是红色

Answer 1

if (Sender as TLabel).caption='label1' then 
  TLabel(Sender).font.color:=clred; 

Answer 2

但是我的label1 和label2 要的红色 
label3和label4 要别的颜色怎么做 把label1 和label2的Tag设置为 -1 if Sender is TLabel then 
 begin 
  if TLabel(sneder).tag = -1 then 
    TLabel(sneder).font.color:=clred
  else
    TLabel(sneder).font.color:=clBlue ; end;