Ein paar Fragen zu deinem Code:

1. Warum definierst du den Constructor deines Threads als virtuell?
2. Warum setzt du FreeOnTerminate vor dem Inherited Aufruf im Constructor?
3. Warum deklarierst du eine virtual abstrakte Methode, wenn es keine Ableitung von dem Thread gibt?
4. Wieso greifst du unsynchronisiert auf die Form und deren Komponenten zu?
5. Warum verwendest du die globale Form1 Variable anstatt z.B. eine richtige Instanz dem Thread zu übergeben?
6. Wozu deklarierst du ein Sender: TObject in deinem Thread?
7. Warum benutzt du globale Variablen in dem Thread?
8. Warum vergleichst du eine boolsche Variable auf explizit auf true?
9. Warum legst du den Thread suspended an um ihn dann sofort loslaufen zu lassen?