Multi hilo delphi

Multi hilo delphi

type
  TMultiThread = class(TThread)
    protected
      procedure execute; override; //Ctrl + Shift + C
  end;
  
procedure TForm1.btnMutliThreadClick(Sender: TObject);
begin
  with TMultiThread.Create do
    FreeOnTerminate := True;
end;

{ TMultiThread }

procedure TMultiThread.execute;
begin
  inherited;

  //Code here
end;