在delphi中能否通过ini文件实现多个用户的登录功能？该怎么处理

在delphi中能否通过ini文件实现多个用户的登录功能？
这是一个用户的登录功能实现！  
uses   inifiles,   Unit2;  
var   sUser,sPwd,u,p:string;  
{$R   *.dfm}  

procedure   TForm1.FormCreate(Sender:   TObject);  


var  
Conini:TiniFile;  

begin  
Conini:=TiniFile.Create( 'c:\my.ini ');  
//写  
Conini.WriteString( 'Parameters ', 'user ', 'lin);  
Conini.WriteString( 'Parameters ', 'password ', '000 ');  

//读  
Conini.WriteString( 'Parameters ', 'user ', 'cai ');  
Conini.WriteString( 'Parameters ', 'password ', 'my ');  

sUser:=Conini.ReadString( 'Parameters ', 'user ', ' ');  
sPwd:=Conini.ReadString( 'Parameters ', 'password ', ' ');  
Conini.Free;  
u:=sUser;  
p:=sPwd;  
end;  

procedure   TForm1.exitClick(Sender:   TObject);  
begin  
application.Terminate;  
end;  


procedure   TForm1.loginClick(Sender:   TObject);  
begin  
if   u <> edit1.Text  
then  
begin  
showmessage( 'no   user ');  
end  
else   if   p <> maskedit1.Text  
then   begin  
showmessage( 'wrong   password ');  
end  
else  

form2.Show;  
end;  



[解决办法]
可以，记录一个count，然后可以用
user0
user1
...
usern
这样记录，不过我认为这样做不好，如果用户多了就麻烦。
[解决办法]
搞个数组，如果用户多了就不用INI
改用SQL的哦
[解决办法]
Type
TUser = class
private
sUser:string;
sPwd:string;
u:string;
p:string;
.
.
.
public
.
.
.

end;

TForm1 = class(FForm)
private
UserList:TobjectList;
.
.
.
public
constructor create;
.
.
.

end;
impliment
constructor TForm1.create;
begin
UserList := TobjectList.create
.
.
.
end;

其他应用:
for i := 0 to (userlist.count -1) do
begin
userlist[i] := ...;
.
.
end;

[解决办法]
其他应用:
添加： userList.add(Tuser.create);

调用：
for i := 0 to (userlist.count -1) do
begin
userlist[i] := ...;
.
.
end;