multi thread delphi

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;