Берет информацию только с 1 строчки memo

procedure TMyThread2.Execute;
var
  msg, a1, a2: string;
  b1,b2, pov: integer;        
begin
   httpsend2:=THTTPSend.Create;
   resp:=TStringList.Create;
  while form1.parsg=True do begin
    Inc(Form1.ipars);
    site:=form1.sMemo5.Lines[Form1.ipars];
    httpsend2.HTTPMethod('GET',site );
    resp.LoadFromStream(httpsend2.Document);
    msg:=resp.Text;
    pov := 0;
    while form1.pars=True do begin
      b1:=Pos('[b]',msg)+3;
      Delete(msg,1,b1-1);
      b2:=Pos('[/b]',msg)-1;
      a1:=Copy(msg,1,b2);
      Form1.sMemo4.Lines.Add(a1);
      if Pos('[b]',msg) > 0 then Form1.pars:=True else Form1.pars:=False;
      if Form1.sMemo4.Lines.IndexOf(Form1.sMemo4.Lines[pov]) < pov then
            Form1.sMemo4.Lines.Delete(pov)
        else
          inc(pov);
    end;
      if Form1.sMemo5.Lines.Count=Form1.ipars then Form1.parsg:=False;
  end;
end;

type
 
TSuperPuperThread = class(TThread)
private
  FURL: String;
  FResult: String;
protected
  procedure Execute; override;
public
  constructor Create(URL: String; CreateSuspended: Boolean);  
  property Result: String read FResult;
end;
 
constructor TSuperPuperThread.Create(URL: String; CreateSuspended: Boolean);  
begin
  inherited Create(True);
  FURL := URL;
  if not CreateSuspended then
    Resume;
end;
..
procedure TSuperPuperThread.Execute;
begin
  FResult := 'Привет, ' + FURL;
end;
 
..
procedure TMySuperPuperForm.HandleThreadResult(Sender: TObject);
begin
  with TSuperPuperThread(Sender) do
    ShowMessage(Result);
end;
..
NewThread := TSuperPuperThread.Create('Вася', True);
NewThread.OnTerminate := HandleThreadResult;
NewThread.FreeOnTerminate := True;
NewThread.Resume;