Dlaczego jak zamykam aplikację powstaje błąd "Raise Exception"?
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TWatek = class(TThread)
public
procedure Execute; override;
end;
var
Form1: TForm1;
watek: TWatek;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
watek:=TWatek.Create(false);
end;
procedure TWatek.Execute;
var x:Integer;
begin
for x:=0 to 10000000 do
begin
Form1.Button1.Caption:=IntToStr(x);
end;
end;