procedure TForm1.btn1Click(Sender: TObject);
var
  data1: array[0..65535] of byte;
  data2: array[0..65535] of byte;
  i :integer;
  d :byte;
  s,s1:Pointer ;
begin
   for i :=0 to 65535 do
   data1[i]:=1;
   cs.Send('开始'+formatdatetime('hh:nn:ss:zzz',now));
   //StrMove(@Data2[0],@data1,sizeof(data1));
   //Move(data1[0], data2, 65536);
   // CopyMemory(@data2,@data1,SizeOf(data1));
   cs.Send('结束'+formatdatetime('hh:nn:ss:zzz',now));
 
end;