(* Der Thread zur Durchführung der Messung *)
  TReadCOM1Thread = class(TThread)
  protected
    procedure execute; override;
  private
    function initAnalyzer: integer;
    function eraseBufferIn: integer;
    procedure convertValue (answerStr: string; var valueReal: Real; var valueStr: string);
  public
    constructor create;
    function startRemote: integer;
    function stopRemote: integer;
  end;


  (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
  (* Der Konstruktor für den Thread                                      *)
  (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
  constructor TReadCOM1Thread.create;
  begin
    inherited Create(False);
    FreeOnTerminate:=True;
  end;



  (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
  (* Diese Funktion startet den Thread für die Messung                   *)
  (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
  function TCOM_Remote.startMeasurement: Integer;
  begin
    Form1.Label11.Caption := '0.000 nT ';
    Form1.Label12.Caption := 'Keine Fehler.';
    measure := TReadCOM1Thread.create; // Thread (Messung) starten
    result := 0
  end;


  (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
  (*                                                                     *)
  (* Thread ausführen                                                    *)
  (*                                                                     *)
  (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
  procedure TReadCOM1Thread.Execute;

  var
    mSec: integer; // msec des Zeitformats
    timeStamp1: TDateTime; // Zeitstempel
    ...

  begin
    setLength (tempFile, 2); // Zunächst 2 Files zur Datenspeicherung
    timeStamp2 := now; // Zeitstempel initialisieren
    ...
  end;