1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.BtnactivateClick(Sender: TObject);
begin
  //starte/stoppe Thread
  if Assigned(JoyThread) then
  begin
    JoyThread.Terminate;
    JoyThread.WaitFor;
    JoyThread := nil;
    BtnActivate.Caption := 'Aktiviere Joystick';
  end else
  begin
    try
      JoyThread := TThreadJoystick.Create(@JoyData,self.Handle);
      BtnActivate.Caption := 'Deaktiviere Joystick';
      except showmessage('Fehler');
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TThreadJoystick.Execute;
begin
  while not Terminated do
  begin
    //hier kommt dann der Code rein, der zyklisch ausgeführt wird.
    self.readJoystick;
    self.readEingaenge;
    postMessage(ParentHndl,WM_TJOYTHREAD_NEW_DATA_MESSAGE,0,0);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

constructor TThreadJoystick.Create(values: PJoyValues; Parent: THandle);
begin
    //eigene Konstruktoraufgaben erledigen
    LoadIowKitAPI;
    IOWHndl := IowKitOpenDevice;
    myJoyValues := values;
    ParentHndl := Parent;
    //Parentkonstruktor aufrufen, damit es losgehen kann
    FreeOnTerminate := true;
    inherited Create(false);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(JoyThread) then
  begin
    JoyThread.Terminate;
    //warte bis Thread beendet ist.
    JoyThread.WaitFor;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.BtnactivateClick(Sender: TObject);
begin
  //starte/stoppe Thread
  if Assigned(JoyThread) then
  begin
    JoyThread.Terminate;
    JoyThread.WaitFor;
    JoyThread.Free;
    JoyThread := nil;
    BtnActivate.Caption := 'Aktiviere Joystick';
  end else
  begin
    try
      JoyThread := TThreadJoystick.Create(@JoyData,self.Handle);
      BtnActivate.Caption := 'Deaktiviere Joystick';
      except on E: EAccessViolation do
      begin
          showmessage('Der Thread konnte nicht gestartet werden, weil die Treiber DLL nicht vorhanden ist.');
      end;
    end;
  end;
end;                    

1:
2:
3:

JoyThread.FreeOnTerminate := True;
JoyThread.Terminate; <-- nach diesem Aufruf mit FreeOnTerminate kein Zugriff auf Objekt mehr erlaubt!
JoyThread.WaitFor; <-- Objekt könnte schon längst freigegeben worden sein                    

1:
2:
3:

JoyThread.Terminate;
JoyThread.WaitFor;
JoyThread.Free;