Логический оператор If

[Anatoly555]

Уважаемые форумчане, доброе утро!
Помогите разобраться новичку.
Написал малюсенькую програмку, как по книге, а она не хочет компилироваться:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
par:String;
begin
par:=Edit1.Text;
If par='12345' then
begin
Form2.Show;
Form1.Hide;
end
else
begin
ShowMessage('Неправильно введенный пароль');
end;

end.


Выдает такую ошибку:

[Ошибка] Unit1.pas(45): ';' expected but '.' found
[Ошибка] Unit1.pas(52): Declaration expected but end of file found
[Фатальная ошибка] Project1.dpr(14): Could not compile used unit 'Unit1.pas'

Подскажите, пожалуйста, где я напартачил?

Спасибо.
С ув. Анатолий

[grom333]

Здравствуйте, добавьте end; в конце между end; и end.

procedure TForm1.Button1Click(Sender: TObject);
var
par:String;
begin
par:=Edit1.Text;
If par='12345' then
begin
Form2.Show;
Form1.Hide;
end
else
begin
ShowMessage('Неправильно введенный пароль');
end;
end;
end.

[Anatoly555]

Огромное спасибо.
Поехал дальше писать.
С ув. Анатолий