مالمشكلة في هذا الكود ؟

[sadwolf]

السلام عليكم
مالمشكلة في هذا الكود ؟

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : integer;
begin
    for i := 0 to memo1.Lines.Count do
    begin
        s := IdHTTP1.get(memo1.lines[i]);
          if pos('student', s) > 0 then
              memo2.Lines[i] := memo1.Lines[i]
            else
               Showmessage('down');
         end;

end;

end. 


مالطريقة المثلى لاستخدامه بدون اخطأ ؟