Дубликаты в массиве

var
  Form1: TForm1;
 i,n,k,j,m:integer;
  x,y,z:array of integer;
   p:boolean;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=strtoint(edit1.Text);
  setlength (x,n);
  setlength (y,n);
  with stringgrid1 do
  for i:=1 to n do       // заполнение массива
    begin
      RowCount:=n+1;
      x[i]:=random(n);
      StringGrid1.Cells[0,i]:=inttostr(x[i]);
  end;
    k:=0;
           for i:=1 to n do
           begin
              p:=false;
              for j:=1 to k do
                 begin
                    if x[i]=y[j] then
                    p:=true;
                       if p then break else continue
                 end;
              if not p then k:=k+1; y[k]:=x[i];
            end;
for i:=1 to k do StringGrid1.Cells[1,i]:=inttostr(y[i]);
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=strtoint(edit1.Text);
  setlength (x,n);
  setlength (y,n);
  with stringgrid1 do
  for i:=1 to n do       // заполнение массива
    begin
      RowCount:=n+1;
      x[i]:=random(n);
      StringGrid1.Cells[0,i]:=inttostr(x[i]);
  end;
    k:=0;
           for i:=1 to n do
           begin
              p:=false;
              for j:=1 to k do
                 begin
                    if x[i]=y[j] then
                    p:=true;
                       if p then break else continue
                 end;
              if not p then
                begin
                   k:=k+1; y[k]:=x[i];
                end;
            end;
 
  for i:=1 to k do StringGrid1.Cells[1,i]:=inttostr(y[i]);
 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    L : TStringList;
begin
//Заполнили 1-й столбец
 for i := 0 to 9 do
  StringGrid1.Cells[0, i] := IntToStr(RandomRange(1, 10));
//2-й столбец
 L := TStringList.Create;
 for i := 0 to 9 do
  if L.IndexOf(StringGrid1.Cells[0, i]) = -1
   then L.Add(StringGrid1.Cells[0, i]);
 StringGrid1.Cols[1].Text := L.Text;
 L.Free;
end;