чекер

[DeDoK]

Здраствуйте уважаемые. Помогите пожалуйста в написании кода.
Вот пишу чекер для Вконтакте.Основная цель программы - есть список типа:
мыло1;пароль1
мыло2;пароль2
Программа должна проверять подходят ли эти учетные записи для Вконтакте. Как сделать это для списка?
Можно ли циклом типа :
var
html_elements : OleVariant;
i:integer;
email, pass, s : string;
begin
for i:=1 to ListBox1.Items.Count do // ListBox1.Items.Count - кол-во строк для проверки
begin
email:= ;// Здесь надо получить email
pass:= ;// а здесь надо получить пасс
html_elements:=WebBrowser1.OleObjec t.Document.forms.item(0).elements;
for i:=0 to (html_elements.Length -1) do
begin
if (html_elements.Item(i).name='email' ) then
html_elements.item(i).value:=email;
if (html_elements.Item(I).name='pass') then
html_elements.item(i).value:=pass;
if (html_elements.Item(i).name='') then
html_elements.Item(i).Click;
{Здесь надо произвести проверку если url при нажатии
кнопки не соответсвует урл входа то занести
строку из списка в список невалидных ящиков}.
Непонятен момент получения адреса из списка и пароля, а также проверка полученного url.
или есть ли у кого другие методы? рассмотрю все варианты