Программы от MP

Pro_Man Хренова парень, не слушай их, делай калькуляторы и блакноты, иначе ты не будешь развиваться.
Смотри чтобы сделать генератор любых значений используй рандомайзер, не бросай делать того чего незнаешь, лучше учись, ищи статьи и т.д.
Насчет перехода сразу на сайт с кнопки, есть такой компонент, читай и не унывай что чего то незнаешь!!!

 

Переход на сайт по нажатию кнопки?
Легко же.

Прописываешь shellapi в uses.

И в онклик (или куда там Вам нужно)

ShellExecute(0, 'open', 'http://yourwebsite.com/', nil, nil, SW_SHOW);

Полный код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellapi;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'http://yourwebsite.com/', nil, nil, SW_SHOW);
end;

end.