События при наведении курсора на различные компоненты формы

for i:=0 to frmKolvo.ComponentCount-1 do 
  if Components[i].ClassNameIs('TSpinEdit') then
    str:=str+(Components[i] as TSpinEdit).Value;

var
  Form1: TForm1;
  lastPanel : TPanel;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 
var panel :TPanel;
begin
 
  panel := Sender as TPanel;
  panel.Color := clblack;
  panel.Font.Color := clWhite;
  // запоминаем панельку, над которой изменили цвет,
  // чтобы когда произойдет движенье мышью над формой вернуть его обратно
  lastPanel := panel;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  lastPanel := nil;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if lastPanel <> nil then begin
      lastPanel.Color := clBtnFace;
      lastPanel.Font.Color := clBlack;
      lastPanel := nil;
  end;
end;
//...

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

procedure TForm1.Panel1MouseMove(Sender:TObject; Shift:TShiftState; X,Y:Integer);
var panel :TPanel;
begin
  panel := Sender as TPanel;
  if (lastPanel <> nil) and (lastPanel <> panel) then begin
      // убираем подсветку у предыдущей панельки
      lastPanel.Color := clBtnFace;
      lastPanel.Font.Color := clBlack;
      // подсвечиваем текущую панельку
      panel.Color := clblack;
      panel.Font.Color := clWhite;
  end;
  // запоминаем панельку, над которой изменили цвет,
  // чтобы когда произойдет движенье мышью над формой вернуть его обратно
  lastPanel := panel;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  lastPanel := nil;
end;
 
procedure TForm1.Panel1Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + (Sender as TPanel).Caption;
end;