var

  MyForm:TclStyleForm;

  myArrayInteger : TclArrayInteger;

  BtnArraySample:TclButton;

  Procedure BtnArraySampleClick;

  Var i:Integer;

  Begin

    For i:=1 To 3 Do myArrayInteger.Add(0);//diziye değeleri 0 olan 3 tane eleman oluştur

    With myArrayInteger do

    begin

      SetItem(0,1);//0.indise 1 değerini ata

      SetItem(1,1);//1.indise 1 değerini ata

      SetItem(2,1);//2.indise 1 değerini ata

      SetItem(0, GetItem(0) + GetItem(1) + GetItem(2));//dizinin 0. elemanına tüm dizi değerlerini topla

      clShowMessage(GetItem(0));

    End;

    

    myArrayInteger.RemoveAll;//dizi elemanlarını ve içeriklerini tümüyle sıfırla

  End;

begin 

  

  MyForm := TclStyleForm.Create(Self);

  myArrayInteger := TClArrayInteger.Create;

  

  BtnArraySample:= MyForm.AddNewButton(MyForm,'BtnArraySample','Array Result');

  MyForm.AddNewEvent(BtnArraySample,tbeOnClick,'BtnArraySampleClick');

  MyForm.Run;

end;