for SmplIdx := Samples[itStart] to Samples[itEnd] do
begin
Time := SmplIdx / ChannelRate + ChNum / (CV.DataBuf.FADCData.AdcRate * 1000);
Voltage := CV.DataBuf.Voltage[ChNum, SmplIdx];
Temp := MapVal2Range(VoltageValue, VScaleRange, RVRange(PaintArea));
Point.Y := PaintArea.Top - Temp + PaintArea.Bottom;
Point.X := MapVal2Range(Time, HScaleRange, RHRange(PaintArea));
if bFirstPoint then
begin
Canvas.MoveTo(Point.X, Point.Y);
bFirstPoint := false;
end
else
begin
Canvas.LineTo(Point.X, Point.Y);
end;
end;