procedure TForm1.Butto1Click(Sender: TObject);
var
  email, pass, s: string;
begin
  if ListBox1.ItemIndex>-1 then  {Если в ЛистБоксе что-то выбрано}
  begin
    s:= ListBox1.Items.Strings[ListBox1.ItemIndex]; 
    email:=Copy(s, 1, Pos(';', s)-1); {Берем часть строки s, до ;}
    Delete(s, 1, Pos(';', s));{Удаляем часть строки ;, включительно}
    pass:=s;
    WebBrowser.Navigate('http://vkontakte.ru/login.php?email='+email+'&pass='+pass;
  end;
end;