procedure TfrmP2K_RingStyles.SetRingStyle(AIdx: byte);
var
  str: string;
  SeemData: pbytearray;
  res: boolean;
  SeemLen: word;

begin
  if not Form1.IsP2KConnected then exit;
  SeemData:= AllocMem($fa4);
  try
    FillMemory(SeemData, $fa4, 0);
    SeemData[0]:= AIdx;
    res:= P2K.WriteSeem('004a', '0001', '$A', 1, SeemData);
  finally
    FreeMem(SeemData);
  end;
end;