procedure TForm02.OnDraw(var Mes: TMessage);
var
rp, rn: TRect;
begin
with TProcess02(Mes.LParam) do begin
with rp, PrevPoint do begin
Left := Round(ScaleX * x);
Right := Left + CellWidth;
Top := Round(ScaleY * y);
Bottom := Top + CellHeight;
end;
with rn, NextPoint do begin
Left := Round(ScaleX * x);
Right := Left + CellWidth;
Top := Round(ScaleY * y);
Bottom := Top + CellHeight;
end;
with PaintBox.Canvas do begin
Brush.Color := color;// Теперь после потока появился шлейф
if brush.Color = clwhite then
brush.Color := clred;
FillRect(rp);
Brush.Color :=Color;
// После умирания потока остается синяя точка
if brush.Color = clwhite then
brush.Color := clblue;
FillRect(rn);
end;
end;
end;