TloginForm类的问题

我想作一个用户登陆对话框，程序如下：procedure TForm2.Database1Login(Database: TDatabase;    LoginParams:TStrings);
var
  LoginForm:TloginForm;  // 此行为41行
begin
  LoginForm:=TloginForm.Create(Application);
  LoginForm.label4.Caption:=Database.DatabaseName;
  try
    if LoginForm.ShowModal=mrOk then
      begin
      LoginParams.Values['USER NAME']:=LoginForm.UNEdit.text;
      LoginParams.Values['PASSWORD']:=LoginForm.PWEdit.text;
      end;
  Finally
  LoginForm.free;
end;但提示有错：[Error] Unit2.pas(41): Undeclared identifier: 'TloginForm'
不知道这是为何？该怎样改？请指教！！谢谢。