Hallo,
Problem erledigt.

Habe im Hauptprogramm eine

procedure TForm1.getDBmp(Bild : TPaintBox);
begin
PaintBox1:= Bild;
end;

geschaffen, die im Thread gerufen wird

procedure Diagramm.GiveDBmp();
begin
Form1.getDBmp(DiaBox);
end;

Es geht ggf. eleganter, aber nun habe ich eine Lösung.

Danke Bernd