Invalid pointer operation - Delphi - Ответ 5272929

unit Unit1;
 
interface
 
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Umd5, Vcl.ExtCtrls, jpeg;
 
type
TForm1 = class(TForm)
Start: TButton;
Next: TButton;
Edit2: TEdit;
Answer: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure StartClick(Sender: TObject);
procedure NextClick(Sender: TObject);
procedure Show;
procedure AnswerClick(Sender: TObject);
 
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
Base :TStringList;//Вопросы теста
Qestion : TStringList;//Вопрос
i,first,last:integer;
s:widestring;
numset: integer; // Задано тестов
numnow: integer; // Текущий номер вопроса
Good: integer; // Число верных ответов
Otvet: String; // Ответ
LabelQestion: TLabel; // Поле вопроса
LabelAnswer: TEdit; // Поле ответа
ImageQestion: TImage; // Картинка вопроса
implementation
 
{$R *.dfm}
 
procedure TForm1.AnswerClick(Sender: TObject);
begin
Otvet:= LabelAnswer.Text;
Otvet:= AnsiLowerCase(LabelAnswer.Text);
Otvet:= md5(trim(Otvet));
if Otvet = Qestion.Strings[2] then
begin
Good:= Good + 1;
ShowMessage('верно');
end
else ShowMessage('неверно');
 
Answer.Enabled:= false;
end;
 
procedure TForm1.NextClick(Sender: TObject);
begin
numnow:=numnow+1;
Show;
if numnow = numset-1 then begin
Next.Enabled:= false;
Start.Enabled:= true;
ShowMessage(IntToStr(Good));
Base.Clear;
end;
Answer.Enabled:= true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Good:=0;
Base :=TStringList.Create;
 
Qestion:=TStringList.Create;
 
Next.Enabled:= false;
Start.Enabled:= true;
Answer.Enabled:= false;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
Base.Clear;
Base.Free;
Qestion.Free;
end;
 
procedure TForm1.Show;
begin
Qestion.Clear;
 
Qestion.Text:= StringReplace(Base.Strings[numnow],chr($a0),chr($d)+chr($a),[rfReplaceAll, rfIgnoreCase]);
 
if Qestion.Strings[1] = 'in' then
 
begin
 
LabelQestion:=TLabel.Create(Form1); // Сздаем
LabelQestion.Parent:=Form1;
LabelQestion.Left:=10;
LabelQestion.Top:=10;
LabelQestion.Width:=450;
LabelQestion.Height:=41;
LabelQestion.Autosize:=False;
LabelQestion.WordWrap:=True;
LabelQestion.Caption:=Qestion.Strings[1];
 
end;
 
if Qestion.Strings[1] = 'iq' then
begin
 
ImageQestion:=TImage.Create(Form1); // Сздаем
ImageQestion.Parent:=Form1;
ImageQestion.Proportional:=true;
ImageQestion.Left:=10;
ImageQestion.Top:=10;
ImageQestion.Width:=450;
ImageQestion.Height:=100;
ImageQestion.Picture.LoadFromFile('img/' + Qestion.Strings[2]);
 
end;
 
if LabelAnswer <> nil then LabelAnswer.Free; // Удаляем
 
LabelAnswer:=TEdit.Create(Form1); // Сздаем
LabelAnswer.Parent:=Form1;
LabelAnswer.Left:=10;
LabelAnswer.Top:=100;
LabelAnswer.Width:=150;
LabelAnswer.Height:=20;
LabelAnswer.Text:='';
 
end;
 
procedure TForm1.StartClick(Sender: TObject);
 
begin
 
Next.Enabled:= true;
Start.Enabled:= false;
Answer.Enabled:= true;
 
randomize;
Base.loadFromFile('out.txt');
numset:=StrToInt(Edit2.Text);
numnow:= 0;
 
for i:=0 to Base.Count-1 do
begin
first:=random(Base.Count-1);
last:=random(Base.Count-1);
s:=Base.Strings[first];
Base.Strings[first]:=Base.Strings[last];
Base.Strings[last]:=s;
end;
 
for i:= numset+1 to Base.Count do
begin
Base.Delete(numset);
end;
 
Show; // Изменение формы и пуск теста
 
ShowMessage(Base.Text);
 
end;
 
end.