[Alexo]

Это если весь обьект TStrings, а там может быть куча строк.

ввести булевую переменную и при каждом проходе цикла проверять, а по нажатию кнопки изменять значение переменной.

Код:

if bStop then
  break;
application.processmessages;