[skype.b13]

Код:

unit Unit2;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm2.Button2Click(Sender: TObject);
Label lb1,15;
Var i,k,b,a:integer;
s:String;
begin
ShowMessage('Привет партнеру!'+#13+'Я рад, что Вы состязаетесь со мной.'
+#13+#13+'Отгадайте мое любимое число!'+#13+'Для справки: оно меньше тысячи');
lb1:Randomize;
b:=Random(1000);
i:=0;
15:
s:= InputBox('Заголовок','Ввод','');
Val (s,a,k);
if k<>0 then Goto 15;

Repeat
Val(s,a,k);
  if a<b then a:=Round(StrToInt(InputBox('Ввод числа','Больше','')));
  if a>b then a:=Round(StrToInt(InputBox('Ввод числа','Меньше','')));
  i:=i+1;
  until a=b;

case i of
1..9:ShowMessage('Это случайность!');
10:ShowMessage('Чудесно!');
11,12:Showmessage('Очень хорошо!');
13,14:ShowMessage('Посредственно');
else ShowMessage('Неудачно!');
end;
If MessageDlg('Сыграем еще?',mtInformation,[mbYes,mbNo],0)=mrYes
then Goto lb1;
ShowMessage('Пока.');
end;
end.

Админ: Пользуемся тегами при оформлении кода!

[NumLock]

label, goto... Это из книжки 1985 года пример взят?)))

Скорее всего функция StrToInt() возбуждает исключение. Можно StrToIntDef() использовать.