[Помогите!] код на микс цифр

[☆Moie$☆]

Кто может напистать на делфи? НАпишите подалуйста!

[Bосh]

Генератор чисел?
Если да, то держи:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;

const
n = 7;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Edit1.text := IntToStr(Random(9) + 1);
for i := 1 to n do
Edit1.text := Edit1.text + IntToStr(Random(10));
end;
end.

Добавлено через 7 минут
Если хочешь число чисел, которое будет генерироваться задавать сам, то:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Edit1.text := IntToStr(Random(9) + 1);
for i := 1 to SpinEdit1.Value-1 do
Edit1.text := Edit1.text + IntToStr(Random(10));
end;
end.

[VeTaL_UA]

Генератор паролей (OpenSource)