[Praimmax]

Есть функция
vk.groups_leave(edit1.text);
И поидее vk.groups_leave(gid); Gid несет функцию ид группы.
Edit1=ввод группы
Как выйти из всех групп которые есть?и как добавить исключения?

Код:

procedure TForm3.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 100 do
vk.groups_leave(IntToStr(i));
end;

Так не получается...