procedure TForm2.Button1Click(Sender: TObject);
begin
randomize;
nahodnecislo:=random(100);
edit1.text:=inttostr(nahodnecislo);