Сделать так, чтобы каждое слово генерировалось по одному разу, но в разброс

procedure TForm6.Button2Click(Sender: TObject);
var h:integer;
begin
h:=0;
if (b='Journey') and (form6.Edit1.text='путешествие') then h:=h+1 else
if (b='Commute') and (form6.Edit1.text='заменять') then h:=h+1;
Form6.Label2.caption:=inttostr(h);
end;
 
 
procedure TForm6.Button1Click(Sender: TObject);
 
begin
a:= random(29+1);
if a=1 then b:='Journey';
if a=2 then b:='Commute';
if a=3 then b:='Peaceful';
if a=4 then b:='Magical';
if a=5 then b:='Trip';
if a=6 then b:='Stopover';
if a=7 then b:='Flea market';
if a=8 then b:='Jovial';
if a=9 then b:='Voyage';
if a=10 then b:='Marvel (at)';
if a=11 then b:='Crowded';
if a=12 then b:='Chairlift';
if a=13 then b:='Cruise';
if a=14 then b:='Marvelous';
if a=15 then b:='Pricey';
if a=16 then b:='Funicular train';
if a=17 then b:='Ride';
if a=18 then b:='Fascinating';
if a=19 then b:='Legendary';
if a=20 then b:='Muddy';
if a=21 then b:='Excursion';
if a=22 then b:='Immense';
if a=23 then b:='Remarkable';
if a=24 then b:='Expedition';
if a=25 then b:='Picturesque';
if a=26 then b:='Protected';
if a=27 then b:='Backpacking';
if a=28 then b:='Vibrant';
if a=29 then b:='Awesome';
label3.Caption:=(b);
end;
begin
randomize;
end.

var
  SWords: array of string; // <-- глобальная переменная
 
const
  Words: array[0..28] of string = ('Journey'
  ,'Commute', 'Peaceful', 'Magical'
  ,'Trip', 'Stopover', 'Flea market'
  ,'Jovial', 'Voyage', 'Marvel (at)'
  ,'Crowded', 'Chairlift', 'Cruise'
  ,'Marvelous', 'Pricey', 'Funicular train'
  ,'Ride', 'Fascinating', 'Legendary'
  ,'Muddy', 'Excursion', 'Immense'
  ,'Remarkable', 'Expedition','Picturesque'
  ,'Protected', 'Backpacking', 'Vibrant', 'Awesome');
 
procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer; s: string; f: boolean;
begin
if Length(SWords)=Length(Words) then exit;
Randomize;
repeat
n := random(Length(Words));
s := Words[n];
f := true;
 for i:=0 to High(SWords) do
  if SWOrds[i] = s then f:=false;
until f;
SetLength(SWords, Length(Swords)+1);
SWords[High(SWords)] := s;
 form1.caption := s;
end;

Var
  Words: array[1..30,0..1] of string; // 0 - само слово, 1 - выпадало или нет (1 или 0)
 
procedure TForm1.FormCreate(Sender: TObject);
begin
...
// Заполняем массив словами
  Words[1, 0] := 'Journey';
  Words[2, 0] := 'Commute';
...
 
// Всем словам выставляем статус "не выпадали"
for i := 1 to 30 do
  Words[i, 1] := '0';
end;
 
 
procedure TForm6.Button1Click(Sender: TObject);
begin
 
randomize;
 
a:= random(29+1);
 
if Words[a, 1] = '0' then begin
  b := Words[a, 0];
  Words[a, 1] := '1';
end
else Button1.Click;
 
end;