procedure TForm2.Button1Click(Sender: TObject);
begin
  Randomize;
  S := random(11);
end;
end.