蝙蝠侠最新一部电影:关于利用DELPHI编程的一个小问题

各位看到此贴的前辈们，你好，
我是从事安利营销的，因为部门发展到有一定的规模，为了使得某些资料更安全，所以我们决定自己开发一个小程序。由于大多数人都是文科毕业的，都不懂编程。在开发上是存在一定的难度，因而几乎每一步都需要看着网上的一些不是很清楚的教程。后来发现洪恩网这里有个示例是非常适合我们的，就是在DELPHI简介里的 “使用Edit控件的这些特性编写一个简单的“身份验证”程序”
具体代码如下：http://www.hongen.com/pc/program/tutors/delphi/delp0102.htm
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;//关闭窗体
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:=''; //创建窗体时，让编辑框为空
Edit2.text:='';
BitBtn1.Enabled:=false;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin //当编辑框Edit1中为6个字符时，输入焦点跳到Edit2
if length(edit1.Text)=6 then
form1.FocusControl(Edit2);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin //如果两个编辑框中的输入是正确的，Ok按钮被被激活并获得输入焦点
if (Edit2.Text='123456') and (Edit1.Text='950755') then
begin
bitbtn1.Enabled:=true;
form1.FocusControl(bitBtn1);
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showmessage('您通过了身份验证。');
close;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin //限制编辑框的输入，只接收数字;
if not (key in['0'..'9',#8])then
begin
key:=#0;
messagebeep(1);
end;
end;

end.

我想问的地方只有一个，如何才可以实现支持输入多个用户名，且每个用户的焦点都不一样的呢？

简单举例来说，当账号密码为函数X1，相应焦点为Y1
X1＝Y1
。
。
。
Xn＝Yn

这是个很常见的程序现象吧，只是我一直都弄不好，
希望热心人士有时间的话，花几分钟给我编一个囖，
如果实在没什么心机的话也请给在下指点一下方向。

如蒙大恩，不胜感激。。。

（剩下的分数只有17了，汗。。。。不好意思）
雷特夫斯基