Tarik attLog Mesin Absensi

procedure THelper.TarikAbsen(ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  fid: WideString;
  vmo: Integer;
  amo: Integer;
  yea: Integer;
  mon: Integer;
  day: Integer;
  hou: Integer;
  men: Integer;
  res: string;
  sec: Integer;
  sss: string;
  wco: Integer;
begin
  res := '{"status":"fail"}';

  try
    mesin.Connect_Net(ipMes, Port);
    mesin.ReadGeneralLogData(1);
  except
    on E:Exception do
    begin
      res := '{"status":"fail", "message":"' + E.Message + '"}';
      AResponseInfo.ContentText := res;
      exit;
    end;
  end;

  sss := '';
  while Mesin.SSR_GetGeneralLogData(1, fid, vmo, amo, yea, mon, day, hou, men,
        sec, wco) do
  begin
    if inRange(ARequestInfo, yea, mon, day) then
    begin
    if sss <> '' then
      sss := sss + ',';

      sss := sss + format('{"faceid":"%s","verifmode":"%d","attmode":"%d",'
             + '"tahun":"%d","bulan":"%d","tanggal":"%d","jam":"%d",'
             + '"menit":"%d","detik":"%d", "workcode":"%d"}',[fid, vmo, amo,
               yea, mon, day, hou, men, sec, wco]);
    end;
  end;
  sss := '[' + sss + ']';

  Mesin.RefreshData(1);

  res := '{"status":"oke", "data":' + sss + '}';
  AResponseInfo.ContentText := res;
end;