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

Далее...

procedure TfrmP2K_RingStyles.SetMelodiesToPhone;
var
  curStyle: byte;
  xSeemData: pbytearray;
  seemLen: word;
  str: string;
  res: boolean;

Далее...

procedure TfrmP2K_RingStyles.spSkinComboBox1Change(Sender: TObject);
var
  curIndex: byte;
begin
  curIndex:= TspSkinComboBox(Sender).ItemIndex;
  zIdx:= curIndex;
  spSkinComboBox4.ItemIndex:= xRingStyles[curIndex].Line1.Idx;

Далее...