Erro

[Micheletti]

V esse erro ai!!! eu to no curso da iped sgui todos os passos deles* mais quando termino de trab. o prim. botão e vou p o seg. ele apresenta esse erro.

Aguardo sua ajuda!

obg.

[Micheletti]

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.