v o cod. abaixo... unit Utest; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ActnList, StdCtrls; type Tbtn1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); <_< se eu inserir uma linha = a de cima direcionada ao button2 será que ajuda? ou não tem muito a ver? private { Private declarations } public { Public declarations } end; var btn1: Tbtn1; implementation {$R *.DFM} procedure Tbtn1.Button1Click(Sender: TObject); begin if btn1.Enabled = true then begin btn1.Enabled := false; btn2.Enabled :=true; btn1.Caption :='OFF'; btn2.Caption :='ON'; end; end.