procedure MyThread.Execute;
var
i,jj:byte;
begin
freeOnTerminate := true;
while( not terminated) do
Synchronize(seechartview);
end;
procedure mythread.seechartview();
var
i:byte;
begin
if (recv40[2]=40) and (recv40[3]=1) then
if chartview1<>nil then
for i:=0 to high(chartview1) do
begin
if chartview1[1]<>nil then
chartview1.Timer1.Enabled:=true;
end;
end;