insertar datos sin repeticion

[[egostar]]

Solo quiero comentarte que encierres tu código con etiquetas para que se pueda leer correctamente, te invito a que leas nuestra guia de estilo y la otra guia de estilos.

Aquí pego como se vería si las usaras.

Código Delphi [-]
procedure TForm1.BitBtn2Click(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;

Salud OS.