[s0Creator]

попробуй для задержки использовать такую функцию

Код:

procedure MsgSleep(milliseconds: Cardinal);
var
  endTime: Cardinal;
begin
  endTime := milliseconds + GetTickCount();
  while endTime > GetTickCount() do
  begin
    Application.ProcessMessages();
    sleep(20);
  end;
end;

С девайсом могу только пожелать удачи.
Будут конкретные вопросы по программированию обращайся.
С этим девайсом не работал. За то когда сам с другим мучился так там даже в dll была нестыковка с описанием.