TReader = class(TThread)
  procedure Execute; override;
  destructor Destroy; override;
end;

-----------------------------

procedure TReader.Execute;
var
  LastRead: TDateTime;
const
  RequestDelay = 1/24/3600;
begin
  inherited;
  NameThreadForDebugging('Reader');

  StrToLog('Reader Thread Started.');
  NavCoords:=TNavCoordsQueue.Create;

  LastRead:=0;
  LastCTShort:=Now-RequestDelay;
  LastCTLong:=LastCTShort;
  try
    while not Terminated do begin
      try
        if Now-LastRead>=RequestDelay then begin
          LastRead:=Now;
          ReadNewData;
        end;
      except
        on E: Exception do begin
          StrToLog('Reader Thread Error: '+E.Message);
          Sleep(1000);
        end;
      end;
    end;
  finally
    StrToLog('NSILoader Thread Finished.');
  end;
end;

destructor TReader.Destroy;
begin
  inherited;

  DB.Free;
  NavCoords.Free;
  StrToLog('Reader Thread Destroyed.');
end;