Hola,
Algo así habilitará el botón, si está deshabilitado, o viceversa:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ToolButton1.Enabled := not ToolButton1.Enabled;
end;
Obviamente, también podrías deshabilitarlo, sin más:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ToolButton1.Enabled := false;
end;
O habilitarlo cuando consideraras oportuno:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ToolButton1.Enabled := true;
end;