Помогите с кнопочкой и выводом результатом

[diznt]

И так я хочу сделать чтобы при нажатии на кнопочку выводились определенные результаты
К примеру

Жму на кнопку выводиться цифра 1 в поле
Второй раз жму на ту же кнопочку выводиться другая цифра к примеру 3
Третий раз жму на кнопку выводиться цифра 10

Но это токо пример))
Вот как это можно реализовать???

И еще как сделать чтобы генерировалось рандомные числа??? (в определенном количистве)

[Crivel]

Насчёт рандомных чисел, то вот цитата из Электронного журнала "Программист"

3.Как пользоваться Random

Random применяется тогда, например, когда нужно чтобы компьютер выводил случайные
числа.
Пример:

a := Random(60);

Пояснение: Компьютер выведет в переменную a любое число до 60.

4. Создаём игру «Угадайте число»

Создадим игру «Угадайте число». На форму поставте компоненты Edit, Button и Label.
Процедуре нажатия на кнопку напишите код выделенный краным:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ugad : Integer;
begin
ugad := Random(10); // Переменной ugad присваивается, любое число до 10
if ugad = StrToInt(Edit1.Text) then // Если значение переменной равно значению Edit1, то...
begin
showmessage('Вы угадали!'); //Выводим сообщение, что тот кто ввёл число в Edit1, //угадал
Edit1.Text := ''; // Очищаем Edit1
end
else //Иначе...
begin
showmessage('Вы не угадали!'); //Выводим сообщение, что тот кто ввёл число в Edit, не //угадал
Edit1.Text := ''; //Очищаем Edit1
end;
end;

end.

[diznt]

Crivel
А если к примеру мне надо рандомный текст вывести к примеру от "A" (англ) до "Z" то так и писать (присваивать)

a := Random(z);

???

[Serega_P]

Создай масив с буквами от А до Z, потом генерируй случайное число (Random) и используй его как номер єлемента масива.

[diznt]

Не понял. Это как? Пример приведите пожалуйста

[Карась]

Например:

....
Randomize;
Alfavit := 'abcdefg.....';
Edit1.Text := Alfavit[Random(Length(Alfavit))];
.......

[diznt]

И так написал я код

procedure TForm1.Button1Click(Sender: TObject);
var
 a,b,c,d,x,s,z : integer;
begin
 Form2.Show;
 a:=random(9);
 b:=random(9);
 c:=random(9);
 d:=random(9);
 x:=random(9);
 s:=random(9);
 txtPass.Text:=IntToStr(a+b+c+d+x+s);
end;

Но у меня есть одна проблема, как сделать так чтобы он не складывал а просто выводил рандомные числа к примеру
a,b,c,d,x,s мы должны видить как (это пример тока) 137562 (где a,b,c,d,x,s тут рандомные числа)

[Карась]

Яж уже писал.
Создаёте строку с нжными символами. Например:

ABC := 'ABCDEFG...Z';
NUM := '1234567890';

Теперь рандомно 9 символов в едит:

For i := 1 To 9 Do
Begin
Edit1.Text := ABC[Random(Length(ABC))];
// ...... другии действия.
End;

[diznt]

procedure TForm1.Button1Click(Sender: TObject);
var
 i,num : integer;
begin
 Form2.Show;
 num:='1234567890';
 for i:=1 to 7 do
  begin
   txtPass.Text:=num[Random(Length(num))];
  end;
end;

Ошибку пишет. Подскажите что я не так сделал

[Карась]

Num : String;

А также в дальнейшем указываейте конкретно что пишет компилятор.