OnMouseMove и OnMouseLeave компонента label

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    scrlbx1: TScrollBox;
    img1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure nored(ds:boolean);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
(sender as TLabel).Transparent:=False;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Color:=RGB(226,192,189);
Label2.Color:=RGB(226,192,189);
Label3.Color:=RGB(226,192,189);
Label4.Color:=RGB(226,192,189);
Label5.Color:=RGB(226,192,189);
Label6.Color:=RGB(226,192,189);
Label7.Color:=RGB(226,192,189);
Label8.Color:=RGB(226,192,189);
end;
 
procedure TForm1.nored(ds:boolean);
var
i: integer;
begin
if ds then
for i:=1 to 8 do
with self.FindComponent('Label'+inttostr(i))as tlabel do
begin
Transparent:=True;
Font.Color:=clBlack;
Color:=RGB(226,192,189);
end
end;
 
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
nored(true);
end;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
(sender as TLabel).Color :=RGB(205,34,25);
(sender as TLabel).Font.Color :=clWhite;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
  ////.......
  private
    { Private declarations }
    clicked:TObject;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Sender=clicked then Exit; // если нажали то ничего не делаем
  (sender as TLabel).Transparent:=False;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
//...............
procedure TForm1.nored(ds:boolean);
//..............
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  if Sender=clicked then Exit;
  // гасим если не нажимали
  with Sender as TLabel do
   begin
    Transparent:=True;
    Font.Color:=clBlack;
    Color:=RGB(226,192,189);
   end
//nored(true);
end;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
  (sender as TLabel).Color :=RGB(205,34,25);
  (sender as TLabel).Font.Color :=clWhite;
  // запоминаем если нажали
  clicked:=Sender;
end;
 
end.