Objekt übergeben

[Pfanne]

OK, wird ja immer besser...

Von den objektorientierten Grundzügen habe ich eine Vorstellung. Leider hapert es mit der Syntax und der detailirten Vorgehensweise.

Letztendlich möchte ich eine Prozedur schreiben.
Ich habe in einer Groupbox 8 Trackbars + labels ect.
sowie ein globales array[1..8] für die Position der Trackbars.

Nun möchte ich nicht jedem Trackbar.OnChange eine eigene Prozedur zuweisen die dann das entsprechende array füllt.

Ich habe mir das "schematisch" so vorgestellt:

Delphi-Quellcode:

procedure Tfrm_Server.TrackBarChange(Sender: TObject);
var TrackBar_Value: array[1..8] of integer;
    i as integer;
begin
  i := 1;
  For TTrackBar(Sender) in Groupbox  do
  begin
   TrackBar_Value[i] := IntToStr(TTrackBar(Sender).Position);
  end;
end;

oder

Delphi-Quellcode:

procedure Tfrm_Server.TrackBarChange(Sender: TObject);
var TrackBar_Value: array[1..8] of integer;
    i,j as integer;
begin
  i := 1;
  For j := 1 to Groupbox.objects.count  {alle Objekte auch Label ect.}
  begin
    if Sender is TTrackbar then
    begin
      TrackBar_Value[i] := IntToStr(TTrackBar(Sender).Position);
      i := i+1;
    end;
  end;
end;

Könnte mir jemand bei der richtigen Syntax / Struktur behilflich sein?
Macht das o.g. so überhaupt Sinn?

Danke für eure Hilfe.