在工程文件dpr中加入....
var
pw;
....
Application.Initialize;
Application.CreateForm(TdataFORM, DATAFORM);//先初始数据单元另外编
Application.CreateForm(TMainForm, MainForm);
........
pw:= login('login','login');//login('login','login')为数据单元中的一个函数自编不难pw放在库里
if GetInputText('登录','请输入注册码') = pw then//弹出输入框确认
begin
Application.Run
end
else
messageDlg('你是笨蛋',mterror,[mbok],0);
end.