Ошибка в коде (Авторизация)

[BastAngel]

Хочу что бы при определенном логине открывалась своя форма, подскажите в чем ошибка в коде


procedure TForm1.Button1Click(Sender: TObject);
begin
if (table1.Locate('Логин',Edit1.Text,[])) and
(Table1.FieldValues ['Пароль']=Edit2.Text) then
begin
if Table1.FieldValues ['права']='Администратор'
then form2.show
begin
if Table1.FieldValues ['права']='Экскурсовод' then
form3.show;
begin
if Table1.FieldValues ['права']='Кассир' then
form4.show
end;
end
else ShowMessage('не верный логин или пароль');
end;
end;

[maLoy*508]

используйте теги при оформлении кода, это первое.
а второе, зачем begin вставлять from_.show везде?

procedure TForm1.Button1Click(Sender: TObject);
begin
if (table1.Locate('Логин',Edit1.Text,[])) and
(Table1.FieldValues ['Пароль']=Edit2.Text) then

if Table1.FieldValues ['права']='Администратор'
then form2.show

if Table1.FieldValues ['права']='Экскурсовод' then
form3.show;

if Table1.FieldValues ['права']='Кассир' then
form4.show
end
else ShowMessage('не верный логин или пароль');

end;

примерно так навскидку...

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (table1.Locate('Логин',Edit1.Text,[])) and
     (Table1.FieldValues ['Пароль']=Edit2.Text) then begin
    if Table1.FieldValues ['права']='Администратор' then form2.show
    else if Table1.FieldValues ['права']='Экскурсовод' then form3.show
    else form4.show;
  end 
  else ShowMessage('не верный логин или пароль');
end;

[BastAngel]

Все равно выдает ту же ошибку "missing operator or semicolon"

[maLoy*508]

проверь ";" в коде...

[BastAngel]

Всем огромное спасибо, Аватар тебе вдвойне спасибо) Не раз уже выручаешь)