Fórum Erro ao sair do sistema #403201

A unit Login é essa:
unit UnitLogin;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls,db;
type TFrmLogin = class(TForm)
Image1: TImage;
iblnome: TLabel;
iblsenha: TLabel;
EdNome: TEdit;
EdSenha: TEdit;
BtnOK: TButton;
BtnCancelar: TButton;
Label1: TLabel;
PnlMensagem: TPanel;
procedure BtnCancelarClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BtnOKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmLogin: TFrmLogin;
implementation
uses UnitPrincipal, UnitDM;
var Contador:integer;
{$R *.DFM}

procedure TFrmLogin.BtnCancelarClick(Sender: TObject);
begin
frmPrincipal.close;
end;

procedure TFrmLogin.FormShow(Sender: TObject);
begin
edNome.setfocus;
end;

procedure TFrmLogin.BtnOKClick(Sender: TObject);
var ValorSenha:TstringField;
begin if not DM.tableusers.findkey([ednome.text]) then
begin pnlMensagem.Caption:='Login Recusado, Usuário Desconhecido...';
inc(Contador); if contador=4 then
frmPrincipal.close;
ednome.setfocus;
Exit;
end;
ValorSenha:=DM.tableUsers.findfield('Senha') as tStringfield;
if valorsenha.value<>edsenha.text then begin
pnlMensagem.Caption:='Login Recusado, Senha Inválida...';
inc(Contador); if Contador=4 then
frmPrincipal.close;
edsenha.setfocus;
Exit;
end;
frmPrincipal.label2.Caption := frmLogin.EdNome.Text;
frmPrincipal.enabled:=true;
frmlogin.release;
end;
end.

A unit Principal é essa:
unit UnitPrincipal;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;
type
TFrmPrincipal = class(TForm) MainMenu1: TMainMenu;
Cadastro1: TMenuItem;
Consulta1: TMenuItem;
Relatorio1: TMenuItem;
Movimento1: TMenuItem;
Senhas1: TMenuItem;
Configurar1: TMenuItem;
Sair1: TMenuItem;
SenhasUsuarios1: TMenuItem;
HabilitarSenhas1: TMenuItem;
mnuLogoff: TMenuItem;
Label1: TLabel;
Label2: TLabel;
procedure Sair1Click(Sender: TObject);
procedure SenhasUsuarios1Click(Sender: TObject);
procedure mnuLogoffClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var FrmPrincipal: TFrmPrincipal;
implementation
uses UnitSenhas, UnitLogin, UnitDM;
{$R *.DFM}
procedure TFrmPrincipal.Sair1Click(Sender: TObject);
begin
// frmPrincipal.Release;
// frmLogin.Release;
// DM.TableUsers.Close;
// frmPrincipal.Destroy;
Application.Terminate;
end;

procedure TFrmPrincipal.SenhasUsuarios1Click(Sender: TObject);
begin
frmsenhas:=tfrmsenhas.create(self);
frmsenhas.show;
end;
procedure TFrmPrincipal.mnuLogoffClick(Sender: TObject);
begin
//frmPrincipal.Release;
Application.CreateForm(TFrmLogin,FrmLogin);
Application.CreateForm(TfrmPrincipal,frmPrincipal);
frmPrincipal.Show;
// DMFinan.IBDatabaseFinan.Open;
// DMFinan.TBUsuario.Active:=True;
FrmLogin.ShowModal;
end;
end.

A unit do Projeto é essa:

program Parte2;
uses Forms, UnitPrincipal in 'UnitPrincipal.pas' , UnitLogin in 'UnitLogin.pas' , UnitDM in 'UnitDM.pas' {DM: TDataModule}, UnitSenhas in 'UnitSenhas.pas' ;
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
Application.CreateForm(TDM, DM);
Application.Run;
end.

Não sei onde tá dando erro.

Alguém me ajuda com esse erro, to travado nisso.