insertar datos sin repeticion

[baby]

gracias caral por tu aclaracion
esta es la codificacion k tengo hecha
var
Form1: TForm1;
x:string;
a:array[0..4] of integer;
i,cont:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
b,j,f1:integer;
begin
b:=StrToInt(Edit1.Text);
f1:=0;
if cont<5 then
begin
for j:=0 to 4 do
begin
if a[j]=b then
f1:=1;
end;
if f1=0 then
begin
a[i]:=b;
inc(cont);
inc(i);
x:=x + IntToStr(b)+' ';
end;
end;
if cont=5 then
Label1.Caption:=x;
Edit1.Text:='';
Edit1.SetFocus;

end;
haber si me aclaro voy insertando numeros hasta llegar el max tamano del array y luego en una etiqueta se muestra los datos de este ultimo sin que aparezcan datos repetidos (desgraciadamente no me lo hace )
gracias