Bitmap.Canvas -> Form.Canvas ... nix zu sehen

[TiGü]

Nichtsdestotrotz greifst du auf Ressourcen innerhalb des Kontextes deines Update-Threads zu, die ganz eindeutig zum Mainthread gehören.
Dazu wurde dir auf den vorigen Seiten genügend oft gesagt, dass man das nicht macht.
Das ist kein kurzes Anhalten in der Parkverbotszone, das ist ein Wenden auf der Autobahn.
Du musst zwingend mit TThread.Syncronize(nil,...) arbeiten.

[TiGü]

Möglich wäre auch die Verwendung von TThread.Queue(nil...)

Delphi-Quellcode:

procedure TSourceThread.DoSendData;
begin
  FOwner.lbl_CountSource.Caption := IntToStr(FCounter);
  if Assigned(FSendData) then
    FSendData(FCounter);
end;

procedure TSourceThread.Execute;
begin
  inherited;
  while not Terminated do
  begin
    if (WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0) and not Terminated then
    begin
      TThread.Queue(nil, DoSendData);
      Sleep(50 + Random(200));
      Inc(FCounter);
    end;
  end;
end;