Aus Komponente auf Namen zugreifen

[maximus Caesar]

Hier ein Teil des Codes (nur mit der betroffenen Prozedur):

Delphi-Quellcode:

unit Day;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Graphics;

type
  TDay = class(TLabel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    procedure rename(name2:String);
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Eigene Objekte', [TDay]);
end;

procedure rename(name2:String);
var i:Integer;
    n:String;
begin
  try
    i:=length(Name2);
    n:=self.name;      <---- Hier ist die Fehlermeldung
    .
    .
    .
    usw.
end;

end.

Hab das ganze mit dem Komponenten Experten erstellt und dann meinen Senf hinzugefügt