[MoS]

Сообщение от scroyler

вот код, что в нем не так??

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
var m,s1,gg,ssyl,log,pass,s,a,b,c:string;
  StrPage:string;
  qwe:TStringList;  i,i1:integer;     str:string; n:integer;
begin

listbox2.Selected[0]:=true;
a:=listbox2.items[listbox2.itemIndex];

listbox1.Selected[0]:=true;
b:=listbox1.items[listbox1.itemIndex];

s1:= a;
i1:=Pos(':',s1);
log:= Copy(s1,1,i1-1);
pass:=  Copy(s1,i1+1,20);

 Randomize;
      n:=random (2);
  s := '';

  for i:=1 to 2 do

    s := s + chr ( random( ord('z') - ord('a') + 1) + ord('a'));

 gg := s;

        try

 memo2.text:= idhttp1.Get('http://www.odnoklassniki.ru/dk?st.cmd=searchResult&st.query='+gg+'&st.gender='+edit8.text+'&st.fromAge='+edit3.text+'&st.tillAge='+edit4.text+'&st.country=10414533690&st.onSite=on&st.mode=Users&st.grmode=Groups');
   except
   end;

  str:=memo2.text;
n:=pos('<a class="o" href="/profile/',str)+length('<a class="o" href="/profile/');
m:=  copy(str,n,posex('?',str,n)-n);

if pos ('title',m)>0 then
else listbox1.items.add (m);

  qwe.Free;  end;

А зачем в таймере писать?!
Есть предположение что если интервал таймера маленький (1 сек. к примеру), то просто не успевает выполниться get запрос, не смотря на то что первые 10 мин. парсит!