Общая переменная

[А.Брей]

Всеп Здрастье! Есть вопрос.
Имею 30 TPanel и каждая содержет свои данные в области Caption.
Список данных фиксированный для всех панелей.
Для обработки события от мыши над понелью надо произвести вывод в
Caption этой панели не используя лишние переменные и большие обработчики. Вопщем нужна переменная тира: Qwer=:Panel+n(над которой произошло сабытие).
За рание спасибо.

[Carbon]

Если панели не расположены хаотично, то заводим массив элементов TPanel. В каждом компоненте указываем координаты, родительский компонент и обработчик события нажатия мыши. В этом обработчике и надо выводить в Caption.

[Shuraken]

Ну, вроде все просто. В одной из панелей делаем следующий обработчик
procedure TForm1.Panel1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
begin
TPanel(Sender).Caption := TPanel(Sender).Name; //как пример
end;

и назначить этот обработчик всем тридцати панелям.