OK...
Timer 10ms geht nicht..
Vergiss den Timer...
Folgendes ist zu ändern:
aBild.Canvas.Font.Name := 'Arial';
Im Thread noch setzen "vor der While"
Dann Uses Unit1 in Unit2
und
Delphi-Quellcode:
procedure TTestThread.Zeichne;
begin
FBild.Canvas.StretchDraw( Rect(0,0,FBild.Width,FBild.Height), aBild );
Form1.Paintbox1.Canvas.Draw(0,0, FBild); // neu
end;
Schon funktioniert es!
Zufälligerweise.
Jedes Zeichnen aus dem Thread auf im Hauptprogramm erzeugte Formulare kracht früher oder später.