Sender :TObject geht nicht als Zeiger?

[Sharky]

Und um das ganze noch Wasserdicht zu machen ->

Delphi-Quellcode:

procedure TForm1.MouseMoveoverShape(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin 
  If (Sender is TShape) then
  begin
    FieldNameLabel.Caption := (Sender AS TShape).Name;
  end;
end;