Delphi Generowanie losowych liczb

witam chce napisac prosty program który generuje losowe znaki znaczy numerki generator hasel tylko nie wiem jak sie do tego zabrac tak aby po kliknieciu w buttona sie generował losowy text lub numerki ort! mi ktos ?:)

podstawy programowania + tablica ze znakami + randomize + random().

Robisz tablicę ze znaczkami (np.:)

Const Znaczki: Array[0..5] Of String = ('a', 'b', 'c', 'd', 'e', 'f');

I robisz, tak:

Var Znak: Char;
Begin
 Randomize;
 Znak := Znaczki[Random(High(Znaczki))];

Losowanie znaków dla długości 10 liter.

Var Haslo: String;
Haslo := '';
For I := 1 To 10 Do
 Haslo := Haslo + Znaczki[Random(High(Znaczki))];

A nasze hasło znajduje się w zmiennej Haslo.
Proste !

Ja Pomorze zachodnie. Może być? A temat do Newbie się nadaje i tam go przenoszę.

//...
function GenerateRandomString(HowMuch : Byte) : string;
const
  CharsArr = '3AV5P0W7T1R8QJ69E24HYUIOSDFGKLZXCBNM';
var
  I : Byte;
begin
  Result := '';
  if (HowMuch < 1) or (HowMuch > 240) then
  begin
    Exit;
  end;
  Randomize;
  for I := 1 to HowMuch do
  begin
    Result := Result + CharsArr[Random(Length(CharsArr)) + 1];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GenerateRandomString(69);
end;

EDIT: heh, chwilę miałem otwartą kartę z tym wątkiem, a tutaj tyle odpowiedzi nadeszło.
No tak, my wszyscy oprócz pytającego mamy działające google, jak i potrafimy pomyśleć.

olesio Dzieki ;D
@up tez Dzieki tego mi było trzeba ;P