[m1sclick]

Объявляешь переменные:
i, num : integer;
Затем пишешь такой код:

Код:

randomize;
for i:=0 to 9 do
begin
num:= random(9);
Edit1.Text:= Edit1.Text + inttostr(num);
end;

Будет тебе простейший числовой пароль.