Диалоговое окно InputBox

[Streb]

Здравствуйте, Уважаемые Форумчане!
Подскажите пожалуйста, в чем ошибка в коде.
Я вызываю диалоговое окно InputBox и ввожу в него пароль. При правильном вводе, происходит удаление строки из БД MySQL. При неправильном вводе, выходит сообщение о ошибке и ничего не удаляется.

procedure TForm5.btn3Click(Sender: TObject);
 begin
  if InputBox('Удаление строки','Введите пароль:','') = 'adm' then
    Form5.qry1.Delete;
    MessageDlg('Строка удалена!',mtInformation,[mbOk],0)
   else
    MessageDlg('Неправильный пароль',mtWarning,[mbOk],0)
end;

Если удалить строку

Form5.qry1.Delete;

, то все работает как и должно, только без удаления.
Ругается, почему-то на else.
Подскажите, в чем я не прав.
Заранее спасибо!

[Аватар]

begin ... end знаешь что такое? Вот правильно расставь их и будет булочка с маслом. А так маслом шмяк об пол

[Streb]

Сообщение от Аватар

begin ... end знаешь что такое? Вот правильно расставь их и будет булочка с маслом. А так маслом шмяк об пол

Вот слона и не заметил!
Спасибо большое, все работает!