Concatenar variable a nombre de objeto

[cslbcn]

Hola. Los ejemplos de antes funcionaron. He intentado aplicar eso en otro caso y no funciona.

Cuando hago click en una Label, quiero que cambie el formato de esta. Para ellos llamo a un procedure de este tipo:

Código Delphi [-]
procedure TFMante.cambiarFormato(Objeto:String; Estado:String; Categoria:String);
begin

  if (Estado = 'mouseClick') then
  begin

    TLabel(Objeto).Font.Color := clAqua;
    
  end;

end;

Cuando hago la llamada, en Objeto envío el nombre de la label (labelUsuarios1, por ejemplo). Entonces

TLabel(Objeto).Font.Color := clAqua;
debería ser reemplazado por:
TLabel(labelUsuarios1).Font.Color := clAqua;

Pero al hacerlo no funciona, el programa peta. Creo que es porque envío el nombre como String...

Alguna idea? Gracas