unit HL2_rules;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, jpeg, ExtCtrls;

type
   TForm1 = class(TForm)
   Label1: TLabel;
   Button2: TButton;
   RadioButton1: TRadioButton;
   RadioButton2: TRadioButton;
   Image1: TImage;
   procedure Button1Click(Sender: TObject);
   procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
   procedure Button2Click(Sender: TObject);
   private
   { Private declarations }
   public
   { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('А что, кто то сомневался?', mtInformation, [mbOk], 0);
close;
end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);

   var
   index:integer;

begin
   If (RadioButton2.Checked) and (not RadioButton1.Checked) then
index:=random(4);
case index of
0: Button2.Left:=Button2.Left+Button2.Width;
1: Button2.Left:=Button2.Left-Button2.Width;
2: Button2.Top:=Button2.Top+Button2.Height;
3: Button2.Top:=Button2.Top-Button2.Height;
end;

if Button2.Left<0 then
Button2.Left:=0;

if (Button2.Left+Button2.Width)>Form1.Width then
Button2.Left:=Form1.Width-Button2.Width;

if Button2.Top<0 then
Button2.Top:=0;

if
(Button2.Top+Button2.Height)>Form1.Height then
Button2.Top:=Form1.Height-Button2.Height;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   If (RadioButton1.Checked) then
   begin
MessageDlg('Никто не сомневался!', mtInformation, [mbOK], 0);
close;
end
else begin
if  (RadioButton2.Checked) then begin
Showmessage ('Иди ты... Вслед за выбранным тобой вариантом!'); //Посылаем юзернейма!
RadioButton2.Enabled:=false; //Вырубаем вариант "Говно"
RadioButton2.Caption:= RadioButton2.Caption+' - ЗАБЛОКИРОВАНО'; //Добавляем слово "заблокировано"
RadioButton2.Checked:=false; //Снимаем метку
end;
end;
end;

end.