como pegar parte de um texto num arquivo mesmo.

var ArquivoRecebido: TStringList;
    nI, nZ, nP: Integer;
begin
  ArquivoRecebido := TStringList.Create;

  ArquivoRecebido.Add(´Seu produto: Papel para fotos folha $ 5,00 http://www.seusite.com.br/jm/item?site=MLB&id=21292030 foi vendido´);

  nZ := ArquivoRecebido.Count;

  For nI := 0 to nZ-1 do
  begin
    nP := Pos(´&id=´, ArquivoRecebido.Strings[nI]);
    if nP>0 then // achou
    begin
      MessageDlg(´O produto da linha: ´+IntToStr(nI)+´ é: ´+Copy(ArquivoRecebido.Strings[nI],nP+4,8),mtInformation,[mbOk],0);
    end;
  end;

  ArquivoRecebido.Free;
end;