Поток не выполняется, его нельзя приостановить - PascalABC.NET

Формулировка задачи:

uses GraphABC, ABCButtons;
var n1: string;
procedure scene1;
begin
 Readln(n1);
end;
begin
 var b1:=new ButtonABC(100,100,100,100,'КНОПКА',clWhite);
 b1.OnClick:=scene1;
end.

После нажатия на кнопку , выдаёт ошибку "Поток не выполняется; его нельзя приостановить" Как решить данную проблему???

Текст исключения: System.Threading.ThreadStateException: Поток не выполняется; его нельзя приостановить. в PABCSystem.PABCSystem.Read(String& x) в C:\PascalABC\PascalABC.NET\LibSource\PABCSystem.pas:строка 4585 в Program1.Program.scene1() в C:\Users\GG\Desktop\Program1.pas:строка 5 в ABCButtons_implementation______.ABCButtons_implementation______.ButtonsMouseUp(Int32 x, Int32 y, Int32 mb) в C:\PascalABC\PascalABC.NET\LibSource\ABCButtons.pas:строка 81 в GraphABC.ABCControl.OnMouseUp(Object sender, MouseEventArgs e) в C:\PascalABC\PascalABC.NET\LibSource\GraphABC.pas:строка 2283 в System.Windows.Forms.Control.OnMouseUp(MouseEventArgs e) в System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) в System.Windows.Forms.Control.WndProc(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) в System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

Решение задачи: «Поток не выполняется, его нельзя приостановить»

Листинг программы

{$reference Microsoft.VisualBasic.dll}
 
uses GraphABC, ABCButtons;
var
  n1: string;
 
procedure scene1;
begin
  n1:=Microsoft.VisualBasic.Interaction.InputBox(
    'Текст внутри окна ввода', 'Заголовок окна ввода', '', {Отступ от левого края экрана: integer}, {~ от верхнего ~});
end;
 
begin
  var b1 := new ButtonABC(100, 100, 100, 100, 'КНОПКА', clWhite);
  b1.OnClick:= scene1;
end.

Объяснение кода листинга программы

Создается новый проект в среде программирования PascalABC.Net.
В верхней части кода указывается ссылка на библиотеку Microsoft.VisualBasic.dll.
В области переменных определяется строковая переменная n1.
Далее определена процедура scene1, которая будет вызываться при нажатии на кнопку.
Внутри процедуры scene1 происходит запрос на ввод текста с помощью функции Microsoft.VisualBasic.Interaction.InputBox.
Введенный текст сохраняется в переменную n1.
Создается новый объект ButtonABC с заданными параметрами: координатами (100,100), размером (100,100), текстом 'КНОПКА' и цветом clWhite.
Указано, что при нажатии на кнопку будет вызываться процедура scene1.
Завершается создание программы и начинается выполнение.