Написать программу-минитест

unit Test_;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TF = class(TForm)
    eNumber1: TEdit;
    eNumber2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    eAnswer: TEdit;
    bGenerate: TButton;
    bCheckResult: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    meResults: TMemo;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure bGenerateClick(Sender: TObject);
    procedure bCheckResultClick(Sender: TObject);
    procedure eAnswerKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type TTest=record
     iQuestion:byte;
     Number1,Number2,Answer:Integer;
     Scores:byte;
end;
 
const nQuestions=5;
      MaxNum=10;
Diagnosis:array [0..5] of string[25]=
(
'Клиника!',
'Критинизм 99%',
'До новых встреч',
'Зачёт',
'Почёт',
'Всемирная слава!'
);
 
var
  F: TF;
  T:TTest;
 
implementation
 
{$R *.dfm}
 
Function GetRandomNumbers(Range:word):TPoint;
var r:byte;
    tmp:-1..1;
Begin
  Randomize;
  tmp:=0;
  r:=random(2);
  case r of
  0:tmp:=-1;
  1:tmp:=1;
  end;
  Result.X:=random(Range)*tmp;
  Result.Y:=random(Range)*tmp;
End;
 
Procedure CheckAnswer(n1,n2,Answer:Integer;var Scores:byte);
var sum:Integer;
    s:String;
Begin
F.meResults.ReadOnly:=false;
sum:=n1+n2;
if(sum=Answer)then inc(Scores);
s:=IntToStr(n1)+'+'+IntToStr(n2)+'='+IntToStr(Sum);
if(sum=Answer)then F.meResults.Lines.Append('Верно: '+s)
              else F.meResults.Lines.Append('Неверно: '+s);
              F.eNumber1.Clear;
              F.eNumber2.Clear;
              F.eAnswer.Clear;
F.bGenerate.Enabled:=true;
F.bCheckResult.Enabled:=false;
F.meResults.ReadOnly:=true;
End;
 
Procedure Analys(Scores:byte);
Begin
  F.meResults.Lines.Append('----------------------------------------------');
  F.meResults.Lines.Append(Diagnosis[Scores]);
End;
 
procedure TF.bCheckResultClick(Sender: TObject);
begin
if(F.eAnswer.Text='')then begin ShowMessage('Введите ответ.');exit;end;
F.eAnswer.ReadOnly:=true;
inc(T.iQuestion);
if(T.iQuestion<=4)then
                  begin
                  T.Answer:=StrToInt(F.eAnswer.Text);
                  CheckAnswer(T.Number1,T.Number2,T.Answer,T.Scores);
                  end
                  else
                  begin
                  F.bGenerate.Enabled:=false;
                  F.bCheckResult.Enabled:=false;
                  Analys(T.Scores);
                  end;
end;
 
procedure TF.bGenerateClick(Sender: TObject);
begin
F.eNumber1.ReadOnly:=true;
F.eNumber2.ReadOnly:=true;
F.eAnswer.ReadOnly:=true;
T.Number1:=GetRandomNumbers(MaxNum).X;
T.Number2:=GetRandomNumbers(MaxNum).Y;
F.eNumber1.Text:=IntToStr(T.Number1);
F.eNumber2.Text:=IntToStr(T.Number2);
F.bGenerate.Enabled:=false;
F.bCheckResult.Enabled:=true;
F.eNumber1.ReadOnly:=true;
F.eNumber2.ReadOnly:=true;
F.eAnswer.ReadOnly:=false;
F.bCheckResult.Default:=true;
end;
 
procedure TF.eAnswerKeyPress(Sender: TObject; var Key: Char);
begin
if(key in ['0'..'9',#8]=false) then key:=#0;
end;
 
procedure TF.FormCreate(Sender: TObject);
begin
T.iQuestion:=0;
T.Scores:=0;
F.eNumber1.ReadOnly:=true;
F.eNumber2.ReadOnly:=true;
F.eAnswer.ReadOnly:=true;
F.bGenerate.Default:=true;
end;
 
end.

if(key in ['0'..'9','-',#8]=false) then key:=#0;