procedure TForm1.Button1Click(Sender: TObject);
var
  i,num,x,g: integer;
  Ziehung : array of boolean;
 
begin
  x := 1;
  g := 49;
  label1.Caption := '';
  num := 0;
  SetLength(Ziehung,g);
  FillChar(ziehung[low(Ziehung)],SizeOf(Ziehung),byte(false));
  while num <6 do
  begin
    i := random(49)+1;
    if not(ziehung[i]) then
    begin
      inc(num);
      ziehung[i] := true;
    end;
  end;
 for i := low(Ziehung) to high(Ziehung) do
 begin
   if (Ziehung[i]) then label1.caption := label1.caption + ' ' + IntToStr(i);
 end