[M.A.D.M.A.N.]

По ходу какой-то метод пытаешься вызвать с мертвого объекта. Смотри в дебаге. Предположу, что здесь:

Код:

rt.Terminate;

Код:

if rt <> nil then
  rt.terminate;
...
rt := TReadCardThread.Create(true);
rt.FreeOnTerminate := True;