Во второй массив записать только данные тех из клиентов, кто взял телевизор

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    Button2: TButton;
    procedure StringGrid1Click(Sender: TObject);
    procedure StringGrid2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Фамилия';
StringGrid1.Cells[1,0]:='Имя';
StringGrid1.Cells[2,0]:='Отчество';
StringGrid1.Cells[3,0]:='Улица';
StringGrid1.Cells[4,0]:='Покупал';
end;
 
procedure TForm1.StringGrid2Click(Sender: TObject);
begin
StringGrid2.Cells[0,0]:='Фамилия';
StringGrid2.Cells[1,0]:='Имя';
StringGrid2.Cells[2,0]:='Отчество';
StringGrid2.Cells[3,0]:='Улица';
StringGrid2.Cells[4,0]:='Покупал';
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
 
end;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Фамилия';
StringGrid1.Cells[1,0]:='Имя';
StringGrid1.Cells[2,0]:='Отчество';
StringGrid1.Cells[3,0]:='Улица';
StringGrid1.Cells[4,0]:='покупал';
end;
 
procedure TForm1.StringGrid2Click(Sender: TObject);
begin
StringGrid2.Cells[0,0]:='Фамилия';
StringGrid2.Cells[1,0]:='Имя';
StringGrid2.Cells[2,0]:='Отчетво';
StringGrid2.Cells[3,0]:='Улица';
StringGrid2.Cells[4,0]:='Покупал';
end;
end.
procedure TForm1.Button2Click(Sender: TObject);
begin
const
  Capacity = 10;
var
  Arr1, Arr2 : TArr;
  i, j : Integer;
j := 0;
  for i := 0 to High(Arr1) do
    if Arr1[i].Item = 'телевизор' then
    begin
      if j = Length(Arr2) then
        SetLength(Arr2, j + Capacity);
      Arr2[j] := Arr1[i];
      Inc(j);
    end;
  if j < Length(Arr2) then  
    SetLength(Arr2, j);
...
end;