1:

Random(49)+1;  //liefert einen zufallswert(integer) zwischen 1 und 49					

1:

zusatzzahl := Random(6)+1;  //sind doch Werte von 1-6 oder					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.Button1Click(Sender: TObject);
var arrAll: array[1..49] of Byte; i,k,iRand,iPos: Byte;
    arrZahlen,arrSort: array[1..6] of Byte;
begin
 //Zufallsgenerator wird iniziiert.
 Randomize; 

 // Zahlenarray wird mit Zahlen von 1-49 gefüllt.
 for i:=Low(arrAll) to High(arrAll) do arrAll[i]:=i; 

 //Zufallszahlen werden generiert und gespeichert.
 for i:=Low(arrZahlen) to High(arrZahlen) do begin 
  iRand:=Random(49)+1;
  while arrAll[iRand]=0 do iRand:=Random(49)+1;
  arrZahlen[i]:=iRand;
  arrAll[iRand]:=0;
 end;
 
 //Zufallszahlen werden sortiert.
 for i:=Low(arrZahlen) to High(arrZahlen) do begin 
  iPos:=0;
  for k:=Low(arrZahlen) to High(arrZahlen) do begin
   if arrZahlen[i]>=arrZahlen[k] then Inc(iPos);
  end;
  arrSort[iPos]:=arrZahlen[i];
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var
  lauf,zufalls_zahl,zusatz_zahl:integer;
  zahlen:array[1..49] of integer;
begin
  randomize;  //Zufallsgenerator wird initialisiert
  lauf:=0;
  repeat  //6 Zahlen ermitteln, entspr. Feldplätze z.B. auf -1 setzen
    zufalls_zahl:=random(49)+1; 
    if zahlen[zufalls_zahl]<>-1
    then begin
           zahlen[zufalls_zahl]:=-1;
           inc(lauf);
         end;
  until lauf=6;
  zusatz_zahl:=random(6)+1;  //Zusatzzahl ermitteln 
  for lauf:=1 to 49  //alle Feldplätze durchgehen
  do if zahlen[lauf]=-1  //die, die auf -1 sind, wurden ermittelt
     then edit1.text:=edit1.text+inttostr(zahlen[lauf]);  //werden ausgegeb.
  edit1.text:=edit1.text+inttostr(zusatz_zahl);  //und Zzahl ausgeben
end;					

1:

edit1.text:=edit1.text+inttostr(zahlen[lauf]);					

1:

edit1.text:=edit1.text+inttostr(lauf);