Помогите решить проблему с ListView и TrackBar

[-=C@$PeR=-]

Вот решение, на другом форуме подсказали, мож кому пригодиться:

Говоря соразмерные, Phodopus имел в виду, что тип свойства Data является указателем - по сути числом, размерность которого зависит от того, под какую платформу собрано приложение: 32 или 64 бит. (Говоря о делфи имеем 32 бит). Соответственно этому полю мы можем путем приведения типов присвоить любое значение типа размером до 32х бит.
В твоем случае, ссылка на объект класса TClock также является указателем. Поэтому ее можно смело присвоить свойству Data:
Код:
with ListViewAlarm.Items.Add do
begin
//...
Data := Pointer(Alarm);
//...
end;

// и наоборот

//...
Alarm := TClock(ListItem.Data);
//...

Код с моей программы:

procedure TForm1.BtnChancgeClockClick(Sender: TObject);
var
    Alarm : TClock;
    SavedIndex : integer;
begin
    FormNewClock := TFormNewClock.Create(self);
    FormNewClock.ReserveVolume := FormNewClock.GetVolume;
    try
    with ListViewAlarm do Alarm := TClock(ListViewAlarm.Items.Item[ItemIndex].Data);
      FormNewClock.GetData(Alarm);
      if FormNewClock.ShowModal = mrOK then
      begin
        FormNewClock.SetData(Alarm); //получить настройки будильника из формы FormNewClock
        with ListViewAlarm do
        begin
          SavedIndex := ItemIndex;

if (Alarm.FMode = ONE_ALARM) then
begin
    ListViewAlarm.Items.Item[ItemIndex].SubItems.Clear; //Очищаем строку
    with ListViewAlarm.Items.Item[ItemIndex] do

    begin
      Caption := Alarm.FTextMessage;
      SubItems.Add(DateToStr(FormNewClock.DatePicker.Date));
      SubItems.Add(TimeToStr(FormNewClock.TimePicker.Time));
      SubItems.Add(Alarm.FPeriodAlarm);//добавляется периодичность срабатывания
      Checked := True;
    end;

end;