Случайный текст в Radiobuton.caption

[Kelthagor]

Как реализовать при нажатии на кнопку добавление случайного текста из массива в Radiobutton.caption, radiobutton'ов будет три, ещё нужно чтобы их caption не были равны.
Примерно набросал, но без исключение повтора, да и вообще алгоритм не рабочий, но представляю себе я это примерно так:

procedure TForm2.Button1Click(Sender: TObject);
var a:array[1..3] of integer;
i:integer;
begin

begin
for i=1 to 3 do
a[1]:=strtoint('â 60-õ ãîäàõ â Àíãëèè');
a[2]:=strtoint('â 60-õ ãîäàõ âî Ôðàíöèè');
a[3]:=strtoint('â 80-õ ãîäàõ â Ãåðìàíèè');
Radiobutton1.Caption:=random(inttos tr(a[i]));
Radiobutton2.Caption:=random(inttos tr(a[i]));
Radiobutton3.Caption:=random(inttos tr(a[i]));
end;