А не легче и круче было сделать как в брутах? Типа открывать базу логинов и паролей от сайта из текстовика OpenDialog. Чето типа Цитата
var dir, login, password: string;
a,i: integer;
dostup: boolean;
begin
dostup:=false;
getdir(0,dir);
dir:=dir+'\pass.txt';
Memo1.Lines.LoadFromFile(dir);
a:=Memo1.Lines.Count;
for i:=0 to a-1 do
Begin
login:=copy(Memo1.Lines[i],0,pos(':',Memo1.Lines[i])-1);
password:=copy(Memo1.Lines[i],pos(':',Memo1.Lines[i])+1, length(Memo1.Lines[i]));
if (Edit1.Text=login) and (Edit2.Text=password) then
dostup:=true;
end;
if dostup then
Form2.ShowModal;
if dostup=false then
Form3.ShowModal;
Ну это что-то типо авторизации в программу, так сделал чтоб сделать аналог авторизации как на сайте, хотя там нужно ещё пороботать.