Problem bei TStringList

[Sir Rufo]

Wenn man schon keine Methode daraus bauen will, warum werden hier die Referenzen hart einkodiert, anstatt diese als Parameter zu übergeben?

Delphi-Quellcode:

procedure PrintOutAuto( AForm : TForm1; AValues : TStrings );
var
  Labels: array[0..4] of TLabel;
  StringRoh: String;
  Zeit: String;
  Info: String;
  LIdx: integer;
begin
  Labels[0] := AForm.Show1;
  Labels[1] := AForm.Show2;
  Labels[2] := AForm.Show3;
  Labels[3] := AForm.Show4;
  Labels[4] := AForm.Show5;
  
  for LIdx := 0 to AValues.Count-1 do
  begin
    ShowMessage(Format('Z%d,AValues[%d]', [LIdx+1, LIdx]));

    StringRoh := AValues[LIdx];
    Zeit := Copy(StringRoh, 1, 5);
    Info := StringRoh;
    if Length(StringRoh) > 6 then 
      Delete(Info,1,6);

    Labels[LIdx].Caption := (Zeit + ' - ' + Info);
    // Bedarfsweise Labels wieder einblenden
    Labels[LIdx].Visible := ({Bedingung einfügen für die Sichtbarkeit});
  end;
end;