С прогрессбаром разобрался и добавил сохранение результатов в файл. Вопрос с остановкой выполнения программы остаётся открытым
Добавил переменную T1: TThread и прописал вот так
Код:
procedure TForm2.sButton3Click(Sender: TObject);
begin
T1.Terminate;
end;
procedure TForm2.sButton1Click(Sender: TObject);
begin
T1:=TMyThread.Create(False);
end;
Вроде бы работает, поправьте если неправильно сделал