error con variable bOOLEAN

[tebre]

hola amigos aqui buscando ayuda....el problema es el siguiente estoy usando un varible boolean pero al momento de ejecutarlo...me marca error..la variable es global y se llama "CambioContrasenia" Error=expected THEN but received =

Código Delphi [-]
 
unit UEmpleados;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, jpeg, ExtCtrls;
type
    TFrmEmpleados = class(TForm)
    PcModificarEmpleado: TPageControl;
    BtnCambiaContrasenia: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Login: TLabel;
    password: TLabel;
    EdNumEmpleado: TEdit;
    EdAppaterno: TEdit;
    EdApmaterno: TEdit;
    EdNivel: TEdit;
    CmbDireccion: TComboBox;
    EdNombre: TEdit;
    EdLogin: TEdit;
    EdPassword: TEdit;
    BtnGuardar: TBitBtn;
    BtnCancelar: TBitBtn;
    BtnNuevo: TBitBtn;
    LblClaveDireccion: TLabel;
    LblEncriptado: TLabel;
    CmbEmpleado: TComboBox;
    Seleccionar: TLabel;
    BtnModificar: TBitBtn;
    LblModificaEmpleado: TLabel;
    EdMNumEmpleado: TEdit;
    EdMNombre: TEdit;
    EdMAppaterno: TEdit;
    EdMApmaterno: TEdit;
    EdMNivel: TEdit;
    EdMLogin: TEdit;
    EdMPassword: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    CmbMDireccion: TComboBox;
    BtnMActualizar: TBitBtn;
    BtnMCancelar: TBitBtn;
    BtnMSalir: TBitBtn;
    lBLGuardaClave: TLabel;
    Image1: TImage;
    EdDireccionAsignada: TEdit;
    LblDireccionAsignada: TLabel;
    Label15: TLabel;
    EdNuevoPassword: TEdit;
    LblContrasenia: TLabel;
    BitBtn1: TBitBtn;
    procedure EdMPasswordExit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BtnMCancelarClick(Sender: TObject);
    procedure CmbMDireccionSelect(Sender: TObject);
    procedure EdMApmaternoEnter(Sender: TObject);
    procedure EdMNivelKeyPress(Sender: TObject; var Key: Char);
    procedure CmbMDireccionClick(Sender: TObject);
    procedure EdMPasswordClick(Sender: TObject);
    procedure EdMPasswordEnter(Sender: TObject);
    procedure EdMLoginClick(Sender: TObject);
    procedure EdMLoginChange(Sender: TObject);
    procedure EdMNivelClick(Sender: TObject);
    procedure EdMNivelEnter(Sender: TObject);
    procedure EdMApmaternoClick(Sender: TObject);
    procedure EdMAppaternoClick(Sender: TObject);
    procedure EdMAppaternoEnter(Sender: TObject);
    procedure EdMNombreClick(Sender: TObject);
    procedure EdMNombreEnter(Sender: TObject);
    procedure BtnMActualizarClick(Sender: TObject);
    //procedure PcModificarEmpleadoEnter(Sender: TObject);
    procedure CmbMDireccionEnter(Sender: TObject);
    procedure BtnModificarClick(Sender: TObject);
    procedure CmbEmpleadoSelect(Sender: TObject);
    procedure BtnCambiaContraseniaEnter(Sender: TObject);
    procedure CmbDireccionEnter(Sender: TObject);
    procedure CmbDireccionClick(Sender: TObject);
    procedure EdNumEmpleadoKeyPress(Sender: TObject; var Key: Char);
    procedure EdNivelKeyPress(Sender: TObject; var Key: Char);
    procedure BtnCancelarClick(Sender: TObject);
    procedure CmbDireccionSelect(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EdPasswordEnter(Sender: TObject);
    procedure EdLoginEnter(Sender: TObject);
    procedure EdNivelEnter(Sender: TObject);
    procedure EdApmaternoEnter(Sender: TObject);
    procedure EdAppaternoEnter(Sender: TObject);
    procedure EdNombreEnter(Sender: TObject);
    procedure EdNumEmpleadoEnter(Sender: TObject);
    procedure EdPasswordClick(Sender: TObject);
    procedure EdLoginClick(Sender: TObject);
    procedure EdNivelClick(Sender: TObject);
    procedure EdApmaternoClick(Sender: TObject);
    procedure EdAppaternoClick(Sender: TObject);
    procedure EdNombreClick(Sender: TObject);
    procedure EdNumEmpleadoClick(Sender: TObject);
    procedure BtnGuardarClick(Sender: TObject);
    procedure BtnNuevoClick(Sender: TObject);
  private
    { Private declarations }
    procedure limpiar;
    procedure CancelaEdit;
    procedure HabilitaEdit;
    procedure CancelaEditModifica;
    procedure LimpiarEditModifica;
   // function encriptar(aStr: String; aKey: Integer);
  public
    { Public declarations }
  end;
var
  FrmEmpleados: TFrmEmpleados;
  CambioContrasenia: boolean;
implementation
uses  Uconexion;
{$R *.dfm}
procedure TFrmEmpleados.BtnMActualizarClick(Sender: TObject);
var global : integer;
begin
global:=0;
  //........................................................
 if EdMnombre.Text='' then
    begin
    global:=1;
      EdMnombre.color:=clInactiveCaptionText;
    end;
//............................
 if EdMAppaterno.Text='' then
    begin
    global:=1;
    EdMAppaterno.color:=clInactiveCaptionText;
     end;
//............................
 if EdMApmaterno.Text='' then
    begin
    global:=1;
    EdMApmaterno.color:=clInactiveCaptionText;
    end;
//............................
if EdMNivel.Text='' then
    begin
    global:=1;
    EdMNivel.color:=clInactiveCaptionText;
     end;
//............................
 if EdMLogin.Text='' then
    begin
    global:=1;
    EdMLogin.color:=clInactiveCaptionText;
    end;
//............................
if EdMPassword.Text=' ' and CambioContrasenia = False then
    begin
    global:=1;
    EdMPassword.color:=clInactiveCaptionText;
    end;
if global = 1 then
 begin
 Application.MessageBox('Rellene los campos marcados para continuar', 'Error', MB_OK + MB_ICONERROR);
  global:=0;
 end
 else
{****************************************
**********realizar las modificaciones****
*****************************************}
end;

[[eduarcol]]

deberias encerrar entre parentesis cada una de las comparaciones del IF, cuando son mas de una.

Código Delphi [-]
if (esto = x) and (aquello = y) then

[*Caro*]

Hola, debes encerrar entre parentesis cada condición de tu If, en el caso de que sea solo una condición no es necesario.

Código Delphi [-]
 
 if (EdMPassword.Text=' ') and (CambioContrasenia = False) then

Saluditos

[tebre]

ok ya esta resuelto gracias....aclaro soy nuevo en esto...gracias...........