procedure Mythread.Execute;
var
  fehlerzaehler:integer;
  instream,weitergabe:tArray;
begin
  SetName;
  fehlerzaehler:=0;
  setlength(instream,0);setlength(instream,c_laen);
  setlength(weitergabe,0);setlength(weitergabe,c_laen);
    while not terminated do begin
      if UsbParIn(c_DevNum,instream,c_laen) then begin
        fehlerzaehler:=instream[0];
        weitergabe:=instream;
        //DarstThread.Resume;
       end
      else begin
        inc(fehlerzaehler);
        if fehlerzaehler=3 then begin
          Synchronize(Neu_beginnen); //hauptform benachrichtigen
        end;
      end;
    { Thread-Code hier einfügen }
    end;
    ReturnValue:=3;
end;