Просьба

[dmi6204]

Я новичек в програмирование,по этому не судите строго.Проблема вот в чем:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='123'
Then
begin
Label1.Caption:='Добро пожаловать';
edit1.Enabled:=false;
end
else
begin
ShowMessage('Посторонним вход воспрещен');
edit1.Text:='';
edit1.SetFocus;

end;

   end.

При компиляции,выдается ошибка с указанием на последнюю строку (end)
Бьюсь 2 дня,но не пойму в чем дело.Если не сложно,поясните пожайлуста.

[_-Re@l-_]

Гы, скомпилировал, нормально работает. Вот вам проект(рабочий)

[dmi6204]

Спасибо за быстрый ответ и пот раченное время. Снова сделал форму,вставил код.Тоже самое,выделяется красным поледняя строка end и при компиляции и при трассировке.Может сама среда глючная.

[Valio]

У тебя один End; пропущен.

edit1.SetFocus;
end;
end;