ветвление

[beygul]

Что то я запутался с элементарным ветвлением. Вобщем хотел сделать так, чтобы при нажатии на кнопку - сначала происходила проверка - введены ли данные, а потом уже выполнялась та функция, которая нужна. Но что то у меня вылазеет ошибка, искал причину - сам найти так и не смог, подскажите плииииз!!!
код

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text:='' or edit2.text:='' then
ShowMessage('Ввведите логин и пароль!')
else
ini.WriteString(edit1.text, 'pass', edit2.text);
Edit1.Text:='';
Edit2.Text:='';
end;

[Error] Unit1.pas(59): Type of expression must be BOOLEAN
Вот такая ошибка((((

[_-Re@l-_]

if edit1.Text:='' or edit2.text:=''

Уж простите конечно
Должно быть так:

if edit1.Text='' or edit2.text='' then

Двоеточие в ветвлении не надо

[Stilet]

if edit1.Text:='' or edit2.text:='' then

Увидел? Убери двоеточия

[beygul]

спасибо вам! Всё работает!!!

[beygul]

СТОП! Нет, вылазеет другая ошибка(((

[Error] Unit1.pas(59): Operator not applicable to this operand type

[ZvEr_HaCkEr]

А если не секрет на первую строку ругается?

[beygul]

if edit1.Text='' or edit2.Text='' then

вот на эту((((

[Stilet]

Operator not applicable to this operand type

Правильно пишет. У OR приоритет выше чем у =.
Так что () твои друзья
if

 (edit1.Text:='') or (edit2.text:='') then

[beygul]

Всё! Теперь всё как надо! Спасибо!

[Hacker19_90]

Сообщение от Stilet

Правильно пишет. У OR приоритет выше чем у =.
Так что () твои друзья
if

 (edit1.Text:='') or (edit2.text:='') then

Ток двоеточие не ставь