Два зеркала TrackBar

Я хотел бы знать, как сделать, чтобы мой второй trackbar.position отражал направление, противоположное trackbar1.position. например. Диапазон от 1 до 100.

Итак, когда TrackBar1.Position := 2, тогда trackbar2.Position := 99 Независимо от того, в какую сторону идут трекбары, я хотел бы отражать в противоположном направлении.

Вот мой код на данный момент: (не заинтересован в использовании клавиш для этого), просто взаимодействие с мышью.

Direction : string; 
Skip : boolean;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position = TrackBar2.Position then
begin
if Direction = 'up' then   TrackBar2.Position := TrackBar2.Position + 1;
if Direction = 'down' then TrackBar2.Position := TrackBar2.Position - 1;
skip := true;
end;


if TrackBar1.Position < TrackBar2.Position then
begin 
if skip = false then
begin
TrackBar2.Position := TrackBar2.Position - 1;
Direction := 'down';
end;
end
else
begin
if skip = false then
begin
TrackBar2.Position := TrackBar2.Position + 1;
Direction := 'up';
end;
end;
end;

Вероятно, я перестарался. Может есть более простой способ. Я предпочитаю более простой способ. Спасибо,

Бен