[XaKeR282]

Почему Делфи ругается на эту процедуру?

Код:

procedure TForm7.Button1Click(Sender: TObject);
begin
if Edit1.Text='12345' then
Form7.hide and
Form3.showmodal
else
showmessage('Неверный пароль')
end;