[Parsec]

Hola de nuevo,

me he atascado en una tontería.

Tengo varios ToolButton: ToolButton1..ToolButton5, ¿cómo puedo componer el nombre del ToolButton desde un procedimiento pasándole solo el número final?.

Pongo un ejemplo:

Código Delphi [-]
procedure TForm1.habilitauno(k:integer);
var
i:integer;
    begin
    for i := 1 to 10 do
      begin
         If i=k then
           'ToolButton'+IntToStr(i)].Enabled:=True; 
          else
           'ToolButton'+IntToStr(i).Enabled:=False;
      end;

    end;

Quiero habilitar, por ejemplo, ToolButton3 pero la forma de crear la cadena no es la correcta.
Saludos