1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

type

Painter = class(TThread)
...
public
   procedure Execute; override;
end;

implementation

procedure TPainter.Execute;
begin
   with TForm1 do
   begin
   ...  // Grafkoperationen
   ...  // Ich führe Operationen auf ein unsichtaberes Img aus und dann kopiere ich die in die sichtbare
   PainterTerminated := True;
   Img.Refresh;  // Img änderung auf dem Bildschirm refreshen
   end;
end;

procedure OnParamsChange(..);
begin
   if(PainterTerminated)then  // PainterTerminated ist eine Boolean Variable
   begin  
     PainterTerminated := False; // False setzen, damit der Painter nicht neu erzeugt wird, bis er nicht bis Execute ausgeführt 
     Painter.Create(True);
     Painter.FreeOnTerminate := True;
     Painter.Resume;
   end;
end;