Ich weiß zwar auch nicht was du damit willst, aber zur Not:
Delphi-Quellcode:
type
TBitmap = class(Graphics.TBitmap)
private
FVarName: String;
public
property VarName: String read FVarName write FVarName;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.VarName := 'Bmp';
ShowMessage(Bmp.VarName);
finally
Bmp.Free;
end;
end;
Beispiel ist eher als Scherz gemeint, aber es wäre interessant zu wissen wozu du es benötigst, dann könnte man evt. eine Lösung anbieten.