Sorteando Numeros Aleatorios

Adicione um Tbutton(palheta standart) e um Tedit(palheta standart)

De dois click sobre o Tbutton e adicione:


Var
a: array[0..5] of integer;
i: Integer;
begin
for i:= 0 to 5 do //exemplo de como usar variavel
begin
a[i]:= random(50) ;// o maximo para ser sorteado

Edit1.Text:= FloatToStr (random(50));

end;


Onde está 50 é o máximo de números para sortear,no caso até 50 !