Пароль

[qpuTuJlb]

Здраствуйте, я поставил пароль на свою программу но когда прохожу пароль то неработают кнопки в той програме на которую поставил пароль, вот код в чём ошибка? Если пароль убрать то будет работать всё нормально.
код пароля:

PHP код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '...' then // пароль
Begin
Button1.Enabled := true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Visible := true;
Form1.Visible := false;
end; 


вот сама программа:

PHP код:

procedure TForm2.Button1Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button8Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
ShowMessage('...')
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Color:=clWhite;
end; 


[viks1]

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '...' then // пароль
Begin
Button1.Enabled := true;
end;
end;

Зачем?... Begin
Button1.Enabled := true;
end;
нельзя просто?

Button1.Enabled := true;

И ты в свойствах поставил на ктопку Enable=>False?

[viks1]

ах да еще... попробуй сохранить проэкт... и перезапусти оболочку, помогает иногда)

[elagin]

хм, странно. Всё работать должно)
вот исходники, проверяй: Новая папка.rar

[qpuTuJlb]

[Fatal Error] Could not create output file 'C:\Documents and Settings\Admin\Рабочий стол\Новая папка\Project1.exe'