1type
2 TMultiThread = class(TThread)
3 protected
4 procedure execute; override; //Ctrl + Shift + C
5 end;
6
7procedure TForm1.btnMutliThreadClick(Sender: TObject);
8begin
9 with TMultiThread.Create do
10 FreeOnTerminate := True;
11end;
12
13{ TMultiThread }
14
15procedure TMultiThread.execute;
16begin
17 inherited;
18
19 //Code here
20end;