Как узнать имя динамическо созданного Shape

[Максим139]

Подскажите пожалуйста, как узнать имя динамически созданного TShape при нажатии на него. Вот куски программы:

private
    { Private declarations }
  public
    procedure ShapeClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    { Public declarations }
  end;
.............................
implementation

procedure TForm1.ShapeClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if sender is TShape then
   (кликнутый Shape).Width:=Width1;
   (кликнутый Shape).Height:=Height1;
end;

{$R *.dfm}
.............................
procedure TForm1.CreateShapeClick(Sender: TObject);
begin
 Shape[Shapei]:=TShape.Create(Form1);
 Shape[Shapei].Top:=300;
 Shape[Shapei].Left:=400;
 Shape[Shapei].Width:=100;
 Shape[Shapei].Height:=100;
 Shape[Shapei].Parent:=Form1;
 Shape[Shapei].Brush.Color:=RGB(255,255,255);
 Shape[Shapei].Brush.Style:=bsBDiagonal;
 Shape[Shapei].OnMouseUp:= ShapeClick;
 Shapei:=Shapei+1;
end;

Заранее спасибо!

[Пепел Феникса]

руками ему имя задайте и все.

[mss]

"кликнутый Shape" - это и есть Sender.
Зачем ты его пытаешься Create ?
Create - это метод класса, а не объекта.

[Максим139]

(кликнутый Shape).Width:=Width1;
(кликнутый Shape).Height:=Height1;
Не думаю что правильно будет ClickedShape.
А так же не думаю что правильно будет Shaper:=ClickedShape.

И я не могу сделать Sender.Width.
Тем более Create это создание при нажатии Button

[mss]

Не думаю что правильно будет ClickedShape.

Именно это и будет правильно.

ClickedShape := TShape(Sender);

[Максим139]

Сообщение от mss

Именно это и будет правильно.

ClickedShape := TShape(Sender);

Спасибо огромное, выручил =)