Остановить цикл или завершить программу.

[Человек_Борща]

начнем с того, что после break;, цикл прерывается и весь след. код за break; не будет выполненен НИКОГДА.

Ставь таймер.
В таймере что-то типа такого:

if Length(Trim(Memo1.text)) = 0 or Length(Trim(Memo0.text)) = 0) then
begin
//Освобождение ресурсов
....

Close;
end;

[3D Hunter]

Да какие изменения мемов или таймеры, когда цикл выполняет главный поток, и пока он этот горе-цикл не выполнит, все ваши таймеры и клацанья по мемам клавой встанут в очередь сообщений обработчика формы. Выноси в отдельный поток или используй в горе-цикле Application.ProcessMessages с глобальной булевой переменной. Если нажал крестик на форме или кнопку стоп, то ставь ее в true, инициализируй перед горе-циклом в false. А в цикле своем делай проверку на булеву, если тру, то брейк. Перед проверкой поставь Application.ProcessMessages. Уффф... как же все сложно то.