SampleThreadTimer-3 and force kill

[delagoutte]

Hello,

in in dektop demo ThreadTimer-3 there is this onclose code : 

procedure TMainForm.UniFormClose(Sender: TObject; var Action: TCloseAction);
begin
  if UniFrame11.Busy or UniFrame12.Busy then
  begin
    Action := caNone;
    ShowMessage('Busy!!!!');
  end;
end;

In my app i use unithreadtimer in a free form or in frale that arre called by the free form.

When i close my free form i could have thread are running (like in the sample) but me, i don't want display a message i want close form.

 

what is the best way for stoping/killing "child" thread before close the form ?

if i force close my app crash !!