[martini002]

Listo ya lo arregle.
un amigo me hecho una mano,
y quedo mas sencillo de lo que esperaba

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i, NumRandom, Aux, j:integer;
begin
  InicializarVector();
  i:=1;
  while i<=6 do
    begin
      NumRandom:=RandomRange(1,7);
      Aux:=0;
      for j:=1 to 6 do
        begin
          if vector[j]=NumRandom then
          begin
            Aux:=1;
          end;
        end;
      if Aux=0 then
        begin
          Vector[i]:=NumRandom;
        end;
      if vector[i]>0 then
        begin
          i:=i+1;
        end;
   end;
  Edit1.Text:=IntToStr(Vector[1]);
  Edit2.Text:=IntToStr(Vector[2]);
  Edit3.Text:=IntToStr(Vector[3]);
  Edit4.Text:=IntToStr(Vector[4]);
  Edit5.Text:=IntToStr(Vector[5]);
  Edit6.Text:=IntToStr(Vector[6]);
end;