Endlosschleife + WarteFunktion ohne Programm zu blockieren

[sirius]

ProceedDialog muss eine Funktion sein mit folgender Deklaration:
function ProceedDialog(param:pointer):integer; Beachte, dass dies keine Methode ist, also nicht innerhalb einer Klasse sein darf.

Ausserdem darfst du in einem Thread nicht auf globale Variablen zugreifen, bzw. auf Variablen, die auch der Main-Thread gleichzeitig benutzen könnte. Wenn dies zwingend notwendig wird, muss man eben synchronisieren.

Du benutzt jetzt BeginThread. Warum nimmst du nicht eine Ableitung der Klasse TThread? Das ist für den Anfang viel einfacher. Vor allem sind die Änderungen, die du machn müsstest überschaubarer, wenn du die Klasse TDialogclass von TThread ableitest.