Zahlen "verteilen"

[Spurius]

So, ich bin weitergekommen mit diesem Code:

Delphi-Quellcode:

var
  Form1: TForm1;
  List, List2: TStringlist;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,Zahl: integer;
    Disc: boolean;
begin
 randomize;
 List := TStringlist.Create;
 for a := 1 to 32 do begin
  List.Add(inttostr(a));
 end;

 while memo1.Lines.Count < 8 do begin
  Zahl := random(32);
   for b := 1 to memo1.Lines.Count do begin
    if inttostr(Zahl) = Memo1.Lines[b] then
     Disc := False;
    end;
   if Disc = true then Memo1.Lines.Add(IntToStr(Zahl));
  Disc := true;
 end;
end;

end.

Bitte beantwortet mir noch eine Frage:
Wie kann ich verhindern, dass eine 0 mit angezeigt wird?
Wird bei random(32) die 0 mitverwendet oder geht das erst ab 1 los?