unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var mas:  array[1..7] of string;//задаём одномерный массив
    mas2: array[1..7] of string;//задаём одномерный массив
i,j:integer;
StrList: TStringList; //список строк
begin
mas[1]:='один';
mas[2]:='два';
mas[3]:='три';
mas[4]:='один';
mas[5]:='один';
mas[6]:='два';
mas[7]:='один';

//чтоб визуально смотреть
StringGrid1.RowCount:=7; //количество строк
StringGrid1.ColCount:=1; //количество столбцов
for i:=1 to 7 do
StringGrid1.Cells[0,i]:=mas[i]; //выводим в таблицу

StrList:=TStringList.Create;  //создаём лист строк
StrList.Duplicates:=dupIgnore; //игнорировать  дубли

for i:=1 to 7 do
  StrList.Add(mas[i]);   //добавить в список без дублей


StringGrid2.RowCount:=7; //количество строк
StringGrid2.ColCount:=1; //количество столбцов
for i:=1 to 6 do//7
StringGrid2.Cells[0,i]:=StrList[i];//выводим в таблицу

end;

end.