unit logon;

interface

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

type
  Tlogonform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  logonform: Tlogonform;
   i:integer;
implementation
uses main;

{$R *.dfm}

procedure Tlogonform.BitBtn1Click(Sender: TObject);
var
  table1:TTable;
begin
   table1:=TTable.Create(self);
   Table1.DatabaseName:='xxgl';
   Table1.TableName:='operator.db';
   Table1.Open;
   Table1.SetKey;
   table1.FieldByName('name').asstring:=trim(edit1.text);
   //验证用户名和密码的正确性
   if (Table1.GoTokey) and (Table1.FieldByName('password').AsString=edit2.text) then
   //验证成功
   begin
        username:=edit1.text;
        password:=edit2.text;
        right:=Table1.fieldByName('right').asstring;
        Table1.Close;
        close;
   end
   else
   //验证失败
   begin
      Table1.Close;
      Application.MessageBox('用户名或密码输入错误，请检查再重试！','系统提醒',mb_ok);
      edit1.text:='';
      edit2.Text:='';
      edit1.SetFocus;
      i:=i-1;
      // 错误输入次数已达3次，系统给予提示并自动关闭
      if i=0 then
         begin
            messagedlg('错误输入次数已达3次，系统将会自动关闭！',mtwarning,[mbok],0);
            application.Terminate;
          end;
     end
end;

end

新添加个窗体，在Project1中的Application.Initialize后面加入; 
  form2:=Tform2.Create(Application);
  form2.ShowModal;
  form2.Free;
你可以在form2中写入你想要的内容