кидаем на форму 2-edit`a 3-button.listbox,таймер,1штуку IdHTTP1,1штуку IdAntiFreeze1 и OpenDialog1
ДАЛЕЕ---
в 1 бутон добавляем   
if OpenDialog1.Execute then Listbox1.items.LoadFromFile(OpenDialog1.FileName);
Listbox1.ItemIndex:=0;
в3бутон добавляем код   
if ListBox1.ItemIndex= ListBox1.Items.Count-1 then exit;
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
Timer1.Enabled:=True
во 2бутон кидаем код
idhttp1.get('http://galaxy.mobstudio.ru/services/index.php?userID='+Edit1.text+'&password='+Edit2.text+'&usercur='+ListBox1.Items[ListBox1.Itemindex]+'&a=add_friend&&kbv=73&lngg=ru&dbl=2');
sButton3.Click
ЩЁЛКАЕМ ПО ФОРМЕ И ПРОПИСЫВАЕМ
TS:=TStringList.Create;
TS.Delimiter:='&';
Timer1.Enabled:=False
ТЕПЕРЬ ЖМЁМ НА ТАЙМЕР И ВВОДИМ
sButton2.Click
ПОТОМ ВВЕРХУ
ПОСЛЕ СТРОКИ
   var
   Form1: TForm1;
ПИШЕМ ТУТ TS:TStringList;

ВСЁ ДОБАВЛЯЛКА ГОТОВА ТОЛЬКО В ТАЙМЕРЕ ИНТЕРВАЛ СТАВИМ 8500