Проблема с else

[Tide73]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='Вход then
Button1.Caption:='Выход';
Edit1.Enabled:=False;
Edit2.Enabled:=False
else
Button1.Caption='Вход';
Edit1.Text:='';
Edit2.Text:='';
Edit1.Enabled:=True;
Edit2.Enabled:=True;
end;



[Hint] Unit1.pas(55): Variable 'res' is declared but never used in 'parse'
[Error] Unit1.pas(80): 'END' expected but 'ELSE' found

[R-A-Z-O-R]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='Вход then
begin
Button1.Caption:='Выход';
Edit1.Enabled:=False;
Edit2.Enabled:=False
end
else
begin
Button1.Caption='Вход';
Edit1.Text:='';
Edit2.Text:='';
Edit1.Enabled:=True;
Edit2.Enabled:=True;
end;
end;


Мой совет, используй условия вот так, так как после операторов then и else можно написать только одну команду:
if ..... then
begin
end else
begin
end;

если не сложно, плз нажми на весы