[th_bav]

Подскажите по условию, а то я ууже закипел)))
Ситуация такая есть форма(во вложении) нужно чтобы
1) Если пользователь ничего не ввел в поле Edit1 то в поле Edit1 писалось сообщение "Введите пароль"
2)Если пользователь ввел пароль, то
а)Если пароль равен 1234 то покажи что ли бо
b)Если пароль не верен, то пусть ничего нее происходит
Вот мой код, подскажите почему не робит???

Код:

procedure TAvtorizaciya.Button1Click(Sender: TObject);

begin
 if Edit1.Text<>'' then                    //  Проверка заполнения поля ввода
       if Edit1.Text=IntToStr(315) then
        DataBase.DBGrid1.ReadOnly:=False;  //
        DataBase.DBGrid2.ReadOnly:=False;  //  Пароль введен правильно
        DataBase.Button8.visible:=true;    //
        DataBase.Button12.visible:=true;   //
        close;                             //


 if Edit1.Text='' then                  //
   begin                                //  Поле ввода пароля пустое
       Edit1.PasswordChar:=#0;          //
       Edit1.Text:=('Введите пароль');  //
   end;
end;

Беда в том что прога показывает "что ли" бо в любом случае. Т.е. независимо от того ввел ли я что-нибудь или даже если ошибся...