Erro no Delphi

Estou começando a aprender Delphi, peguei um tutorial e fui seguindo... até q chegou uma hora que deu estes erros:

>
[Error]ULogin.pas(47): Undeclared identifier: 'Dm'

[Error]ULogin.pas(47): Missing operator or semicolon

[Error]ULogin.pas(48): Missing operator or semicolon

[Error]ULogin.pas(48): Missing operator or semicolon

[Error]ULogin.pas(49): ')' expectec but identifier 'tab_Usuarios' found

[Error]ULogin.pas(54): Undeclared identifier: 'Edt'

[Error]ULogin.pas(56): ';' not allowed before 'ELSE'

[Fatal Error] Sistema.dpr(9): Could not compile used unit 'ULogin.pas'

O código é este:

unit ULogin;

interface

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

type
TFrmLogin = class(TForm)

Image1: TImage;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
EdtApelido: TEdit;
EdtSenha: TEdit;
BtnOK: TBitBtn;
BtnCancelar: TBitBtn;
procedure BtnCancelarClick(Sender: TObject);
procedure BtnOKClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmLogin: TFrmLogin;

implementation

uses UMenuPrin, UDM;

{$R *.dfm}

procedure TFrmLogin.BtnCancelarClick(Sender: TObject);
begin

Application.Terminate;

end;

procedure TFrmLogin.BtnOKClick(Sender: TObject);

begin

Dm.Tab_Usuarios.Open; // abre a tabela tab_Usuarios
FrmMenuPrin.StatusBar1.Panels[2].Text := ' Usuário:' + FrmLogin.EdtApelido.Text + '-' + Dm.tab_UsuariosUsuDepto.AsSTring;
If not (Dm.tab_Usuarios.Locate('UsuApelido', FrmLogin.EdtApelido.Text, [loPartialKey])) or (Dm.tab_UsuariosUsuSenha.Value <> FrmLogin.EdtSenha.Text) then

begin
MessageDlg('Nome ou senha do usuário inválidos.'+#13+#13 + 'Se você esqueceu sua senha, consulte'+#13+'O administrador do sistema', mtError, [mbOK],0);
EdtSenha.Clear; // limpa o objeto EdtSenha
Edt.Senha.SetFocus; // Ajusta o foco para o objeto EdtSenha
end;
else

begin
FrmLogin.Hide; // Esconde a tela
FrmMenuPrin.ShowModal; // chama a tela FrmMenuPrin no modo normal
FrmLogin.Release; // Remove a tela da memória
FrmLogin := Nil; //Atribui conteúdo nulo para a variável de tela FrmLogin

end;

end;

end.
Fiquei a tarde inteira tentando resolver, mas como eu disse, sou iniciante no Delphi.

Vi algumas coisas falando de declarar no Unit, ou no Uses sei lá.... não entendi muito bem.

Ajuda aí pessoal!

Obrigado!