get master bass or treble from line out with Delphi

Code:

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  cmpMeterData, StdCtrls, ExtCtrls, ComCtrls, LedLadder, Menus, Buttons;

type
  TForm1 = class(TForm)
    MeterData1: TMeterData;
    Timer1: TTimer;
    LedLadder1: TLedLadder;
    cbMeters: TComboBox;
    Bevel1: TBevel;
    btnClose: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure MeterData1LineChange(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure mnuFileExitClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure cbMetersChange(Sender: TObject);
  private
    fMeterID : Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to MeterData1.MeterCount - 1 do
    cbMeters.Items.Add (MeterData1.Meters [i].MeterName);

  if cbMeters.Items.Count > 0 then
    cbMeters.ItemIndex := 0;


  LedLadder1.Min := 0;
  LedLadder1.Max := MeterData1.Meters [fMeterID].Max;
  LedLadder1.Position := 0;
end;

procedure TForm1.MeterData1LineChange(Sender: TObject);
begin
  Timer1Timer (Nil);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MeterData1.Active then
  begin
    LedLadder1.Position := Abs (MeterData1.Meters [fMeterID].Level);
    Application.ProcessMessages
  end
  else
    LedLadder1.Position := 0;
end;

procedure TForm1.mnuFileExitClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
  Close
end;

procedure TForm1.cbMetersChange(Sender: TObject);
begin
  fMeterID := cbMeters.ItemIndex;
  LedLadder1.Max := MeterData1.Meters [fMeterID].Max;
  LedLadder1.Position := 0;
end;

end.
//ovo sam nasao na netu
ali prijavljuje gresku list index out of bounds