Instanzen einer Klasse

[mickmack]

Folgendes:

Delphi-Quellcode:

  TMyBeispiel = class
                 bespielString : String;
                 bespielIntetger: Integer;
                 function rechnen (beispielInteger:Integer): Integer;
                end;

  var test1, test2 : TMyBeispiel;

  procedure TFrmMain.FormCreate(Sender: TObject);
  begin
   test1:= TMYBeispiel.create;
   test2:= TMyBeispiel.create;
  end; 
  
  //Diese Function, soll je nachdem von welcher Instanz sie aufgerufen wurde mit 2 oder 3 
   multiplizieren
  function TMyBeispiel.rechnen(beispielInteger:Integer): Integer;
  begin
   //wenn von Instanz test1 aufgerufen dann multpliziere mit 2
   //sonst wenn von instanz test2 aufgerufen mit 3 
  end;

Dieses Beispiel vereinfacht mein Problem sehr stark. Es stellt nur halt nur ein anschauliches Bespiel dar.

Zusammengefasst möchte ich gerne wissen, ob ich irgendwie aus den RTTI den Namen der aufrufenden Instanz auslesen kann.
Ansonsten würde mir nur einfallen der KLasse ein Attribut "Name" hinzuzufügen, und dieses über den constructor zu mit dem Namen der jeweiligen Instanz zu füllen.