Остановить цикл при условии

[demiancz]

Есть такой код:

procedure TForm1.N9Click(Sender: TObject);
var
n: integer;
begin
n:=1;
while n <= 2 do
if (Form1.sBitBtn1.Caption = '') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Form1.sBitBtn1.Caption:=(PopupMenu1.PopupComponent as TsBitBtn).Caption;
break;
end
else
if (Form1.sBitBtn2.Caption = '') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Form1.sBitBtn2.Caption:=(PopupMenu1.PopupComponent as TsBitBtn).Caption;
break;
end;
 
if (Form1.sBitBtn1.Caption <> '') and
(Form1.sBitBtn2.Caption <> '') then
ShowMessage('Нет свободного места для добавления в Избранное');
end;

Суть его в том, что при нажатии программа должна переименовать кнопку на ту которую выбрал пользователь. Так вот код работает, но когда нет свободных кнопок нужно что бы появлялось сообщение что нет свободных кнопок и ничего не переименовывалось. Вот здесь и проблема. сообщение появляется, но потом программа зависает и выключить ее можно только через Диспетчер задач. Помогите пожалуйста решить проблему.

[eval]

Зачем тут цикл вообще?

[Прик]

Значение переменной n внутри цикла надо увеличивать самому, например, так: Inc(N). Цикл в предусловием (while) самостоятельно этого не делает.
Кстати, присоединяюсь к вопросу eval.

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

ТС, откройте для себя TActionManager - очень облегчает жизнь особенно при контроле состояний кнопок от каких-либо событий.