Ошибка времени выполнения: Поток не выполняется; его нельзя приостановить

uses graphabc,Events,ABCObjects,abcbuttons,Timers,System.Threading,System;
var a,b,c,d,h,n,m,v,r,o,p1:buttonabc;
var s,q,xq,xw,xe,xr,xt,xy,xu,xi,xo,xx,xa,xs,xd,xxv,x1,x2,n1,n2,n3,n4,n5,y : integer;
    s1,e,i: string; 
var p:=Picture.Create('ball1.bmp');
var sound:system.Media.SoundPlayer;
var min:integer:=0; 
var sec:integer:=5;
 
procedure gg;
begin
p.Draw(0,0);
setfontsize(25);
setbrushstyle(bsSolid);
textout(150, 50, 'ВЫ ДАЛИ ПРАВИЛЬНЫЙ ОТВЕТ');
setfontsize(15);
textout(240, 115, 'В данный момент у вас '+IntToStr(q)+' очков');
end;
 
procedure bad;
begin
a.Destroy;b.Destroy;c.Destroy;
p.Draw(0,0);
sound.Stop;
s:=s-1;
x2:=x2+1;
setfontsize(25);
setbrushstyle(bsSolid);
textout(130, 50, 'К сожалению это неверный ответ(');
setfontsize(15);
textout(255, 90, 'У вас осталось '+IntToStr(s)+' попывток');
textout(240, 115, 'В данный момент у вас '+IntToStr(q)+' очков');
if s=0 then begin end;
end;
 
procedure SI;
begin
p.Draw(0,0);
setfontsize(25);
setbrushstyle(bsSolid);
textout(130, 50, 'Супер игра');
textout(10, 80, 'Введите за сколько секунд вы отгадаете мелодию');
textout(10, 110, 'Введённое время должно быть в диапазоне от 3-7 секунд');
readln(n1);
if ((n1<2) or (n1>8)) then textout(130, 50, 'вы вели число вне диапазона')
else 
  begin 
    n2:=n1*1000; 
    sound:= new system.Media.SoundPlayer;
    sound.SoundLocation:='1.wav';
    sound.Play;
    sleep(n2);
    sound.Stop;
  end;
readln(e);
if e='Белые розы' then begin gg; end;
end;
 
procedure threadproc2();
begin
y:=3; 
if n4=3 then begin
while 1<2 do
  begin
    sleep(1000);
  Font.color:=clLimeGreen;
  Font.Size := 40;
  var t2:=DateTime.Now;
  var Time2:=t2.second;
  while n3<>3 do
  begin
    t2 := DateTime.Now;
    setBrushColor(clRed);
    if (Time2<>t2.Second) then begin
    Time2:=t2.Second;
    sec:=sec-1; end;
    if sec=0 then begin n3:=3; bad; exit end;
    if n5=3 then begin exit end;
    var s := string.Format('{0:d2}:{1:d2}',Min,Sec);
    TextOut(300,0,s);
    Sleep(1000);
    end;
    end;
  end;
end;
 
procedure threadproc1();
begin
y:=2;
if n4=2 then begin
while 1<2 do
    begin
    sleep(1000);
  Font.color:=clLimeGreen;
  Font.Size := 40;
  var t:=DateTime.Now;
  var Time:=t.second;
  while n3<>2 do
  begin
    t := DateTime.Now;
    setBrushColor(clRed);
    if (Time<>t.Second) then begin
    Time:=t.Second;
    sec:=sec-1; end;
    if sec=0 then begin n3:=2; bad; exit end;
    if n5=2 then begin exit end;
    var s := string.Format('{0:d2}:{1:d2}',Min,Sec);
    TextOut(300,0,s);
    Sleep(1000);
    end;
    end;
  end;
end;
 
procedure threadproc();
begin
y:=1;
if n4=1 then begin
while 1<2 do
    begin
    sleep(1000);
  Font.color:=clLimeGreen;
  Font.Size := 40;
  var t1:=DateTime.Now;
  var Time1:=t1.second;
  while n3<>1 do
  begin
    t1 := DateTime.Now;
    setBrushColor(clRed);
    if (Time1<>t1.Second) then begin
    Time1:=t1.Second;
    sec:=sec-1; end;
    if sec=0 then begin n3:=1; bad; exit end;
    if n5=1 then begin exit end;
    var s := string.Format('{0:d2}:{1:d2}',Min,Sec);
    TextOut(300,0,s);
    Sleep(1000);
    end;
    end;
  end;
end;
 
procedure good3;
begin
case y of 
1: n5:=1;
2: n5:=2;
3: n5:=3;
end;
sound.Stop;
p.Draw(0,0);
setfontsize(25);
setbrushstyle(bsSolid);
textout(150, 50, 'ВЫ ДАЛИ ПРАВИЛЬНЫЙ ОТВЕТ');
setfontsize(15);
textout(255, 90, 'У вас осталось '+IntToStr(s)+' попыток');
textout(240, 115, 'В данный момент у вас '+IntToStr(q)+' очков');
x1:=x1+1;
q:=q+100;
end;
 
procedure ac1;
var th2 := new Thread(threadproc2);
begin
sec:=5;
n4:=3;
p.Draw(0,0);
o.Destroy;b.Destroy;c.Destroy;
setfontsize(25);
setbrushstyle(bsSolid);
textout(300, 50, 'Что эта за песня?');
sound:= new system.Media.SoundPlayer;
sound.SoundLocation:='1.wav';
sound.Play;
sleep(1000);
sound.Stop;
th2.Start;
setfontsize(15);
textout(135, 105, 'Что бы закончить прослушивание песни нажмите ПРОБЕЛ');
a:= buttonabc.Create(310, 400, 170, 100, 'Настюша', clred);
b:= buttonabc.Create(50, 400, 170, 100, 'Катюша', clred);
c:= buttonabc.Create(600, 400, 170, 100, 'Танюша', clred);
a.OnClick := bad;
b.OnClick := good3;
c.OnClick := bad;
xd:=xd+1;
xxv:=xxv+1;
end;
 
procedure ab1;
var th1 := new Thread(threadproc1);
begin
n4:=2;
sec:=5;
p.Draw(0,0);
o.Destroy;b.Destroy;c.Destroy;
setfontsize(25);
setbrushstyle(bsSolid);
textout(300, 50, 'Что эта за песня?');
sound:= new system.Media.SoundPlayer;
sound.SoundLocation:='1.wav';
sound.Play;
sleep(1000);
sound.Stop;
th1.Start;
setfontsize(15);
textout(135, 105, 'Что бы закончить прослушивание песни нажмите ПРОБЕЛ');
a:= buttonabc.Create(310, 400, 170, 100, 'Настюша', clred);
b:= buttonabc.Create(50, 400, 170, 100, 'Катюша', clred);
c:= buttonabc.Create(600, 400, 170, 100, 'Танюша', clred);
a.OnClick := bad;
b.OnClick := good3;
c.OnClick := bad;
xs:=xs+1;
xxv:=xxv+1;
end;
 
procedure aa1;
var th := new Thread(threadproc);
begin
sec:=5;
n4:=1;
p.Draw(0,0);
o.Destroy;b.Destroy;c.Destroy;
setfontsize(25);
setbrushstyle(bsSolid);
textout(300, 50, 'Что эта за песня?');
sound:= new system.Media.SoundPlayer;
sound.SoundLocation:='1.wav';
sound.Play;
sleep(1000);
sound.Stop;
th.Start;
setfontsize(15);
a:= buttonabc.Create(310, 400, 170, 100, 'Настюша', clred);
b:= buttonabc.Create(50, 400, 170, 100, 'Катюша', clred);
c:= buttonabc.Create(600, 400, 170, 100, 'Танюша', clred);
a.OnClick := bad;
b.OnClick := good3;
c.OnClick := bad;
xa:=xa+1;
xxv:=xxv+1;
end;
 
procedure Pravila1;
begin
p.Draw(0,0);
a.Destroy;
setfontsize(15);
setbrushstyle(bsSolid);
textout(275, 75, 'Поздравляю вы успешно прошли 1 этап');
textout(10, 100, 'Напоминаю во 2 этапе у вас будут ограничения по времени каждая');
textout(10, 125, 'мелодия будет играть только 10 секунд после чего у вас будет');
textout(10, 150, '3 секунды на выбор ответа. По истечению времени засчитывается');
textout(10, 175, 'что вы ответили неправильно.За каждый правильный ответ дают 100 очков');
textout(10, 300, 'Нажмите "кнопку влево" если хотите вернуться в меню');
end;
 
procedure Menu2;
var th3 := new Thread(SI);
begin
p.Draw(0,0);
o:= buttonabc.Create(350, 250, 100, 100, '100', clred);
b:= buttonabc.Create(100, 250, 100, 100, '100', clblue);
c:= buttonabc.Create(600, 250, 100, 100, '100', clyellow);
p1:= buttonabc.Create(750, 550, 50, 50, 'П', clyellow);
o.OnClick := aa1;
b.OnClick := ab1;
c.OnClick := ac1;
p1.OnClick:=Pravila1;
if xa = 1 then o.Destroy; if xs = 1 then b.Destroy;
if xd = 1 then c.Destroy; if xxv=3 then begin th3.Start; exit end;
end;
 
procedure KeyDown(Key: integer);
begin
a.Destroy;b.Destroy;c.Destroy;
   case Key of
  VK_Space: sound.Stop;
  VK_Left: Menu2;
   end;
end;
 
begin
xq:=0;xw:=0;xe:=0;xr:=0;xt:=0;xy:=0;xu:=0;
s:=10;xxv:=0;n2:=0;n3:=0;n4:=0;n5:=0;
q:=0;
p.Draw(0,0);
SetWindowSize(800,600);
CenterWindow;
Menu2;
OnKeyDown:= KeyDown;
end.